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FOREWORD 


The  work  reported  in  this  paper  is  part  of  a  sustained 

evaluation  and  study  effort  undertaken  by  the  Institute  for 

Defense  Analyses  to  improve  the  analytic  basis  for  worldwide 

* 

Total  Force  Capability  Assessments  '  (TFCA)  conducted  each  year 
by  the  Joint  Chiefs  of  Staff  (Studies  Analysis  and  Gaming 
Agency)  in  conjunction  with  the  Services.  A  three-year  pro¬ 
gram  of  work  (begun  in  December  1979  under  Task  Order  T-0-071), 
the  TFCA  studies  were  first  reported  on  by  an  informal  report 
of  progress  to  JCS  in  March  1980,  followed  by  the  first  interim 
report  of  November  1980.  Some  of  the  topics  presented  in 
this  report,  in  brief,  were  "wiring  diagrams,"  an  initial 
analytic  expression  of  interconnections  between  many  diverse 
elements  of  U.S.  and  NATO  military  forces  as  a  potential  basis 
for  understanding  dynamics  of  interactions  of  many  diverse 
engagements;  the  use  of  a  new  "static  measure"  methodology, 
the  Modified  Antipotential  Potential  (MAP);  and  issues  involv¬ 
ing  the  Atlantic  SEALOC  campaign  and  protection  of  the  SLOC; 
as  well  as  modeling  issues  in  the  Central  Front  of  Europe. 


* 

The  TFCA  measures  the  capability  of  U.S.  forces  to  carry  out 
their  missions  under  various  assumed  international  circum¬ 
stances  and  strategies. 

William  J.  Schultis,  Lowell  Bruce  Anderson,  Jerome  Bracken, 
I.  I.  Deutsch,  Rosemary  Hayes  Jones,  Cynthia  M.  Hampton, 

H.  Peter  Liepman,  Earl  F.  Pierson,  Leonard  Wainstein,  Net 
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Strategic  and  Theater  Force  Comparisons  for  Total  Force 
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This  paper  is  the  third  volume  of  the  second  interim 
report,  IDA  Paper  P-1615,  consisting  of  four  volumes  which 
set  forth  the  results  of  the  second  year  of  work.  Other 
volumes  are: 

Volume  I  —  Modifications  for  WVR/BVR  Combat  Modeling , 
Chemical  Weapons  Gaming ,  Chemical  Weapons  Statistic  Measures , 
Concepts ,  and  Cross-Employment .  This  volume  provides  a  summary 
and  introduction  for  the  entire  second  interim  report  and  also 
contains  sections  on  guidelines  for  gaming  chemical  weapons, 
data  and  static  measures  for  assessment  of  the  effects  of  the 
use  of  chemical  weapons  and  cross  employment  of  weapons. 

Volume  II  —  Illustrative  Example  of  Static  Measures  and 
Methodology .  In  this  volume  the  Modified  Antipotential  Poten- 
tial  (MAP)  method  developed  in  the  first  interim  report  was 
extended  to  include  Improved  methods  of  calculating  the  pre¬ 
vious  measures  and  to  Incorporate  several  new  measures . 

Volume  IV  —  Preliminary  Concept  Formulation  for  Flow 
Model.  In  this  extension  of  the  work  reported  in  the  first 
interim  report  using  "wiring  diagrams"  and  flow  diagrams,  a 
hypothetical  global  scenario  was  chosen  to  illustrate  the  type 
of  analysis  that  might  be  supported  by  a  flow  model. 
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Edward  P.  Kerlin,  Rosemary  Hayes  Jones,  Dale  L.  Moody, 

Leo  A.  Schmidt,  William  J.  Schultis,  Eleanor  L.  Schwartz,  Net 
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A. 


INTRODUCTION 


Chapter  I 
OVERVIEW 


The  model  described  below  Is  an  aggregated,  fully  auto¬ 
mated,  deterministic  model  of  combat  between  two  opposing 
forces.  Usually,  these  forces  can  be  thought  of  as  being  NATO 
forces  versus  Warsaw  Pact  forces.  However,  since  other  appli¬ 
cations  are  possible,  the  forces  will  be  referred  to  as  Blue 
forces  and  Red  forces  here.  (In  the  NATO/Warsaw  Pact  context, 
NATO  is  Blue  and  the  Warsaw  Pact  is  Red. ) 

The  Blue  forces  in  this  model  can  consist  of  aircraft 
carriers,  escort  ships,  submarines,  sea-based  attack  and 
defensive  aircraft,  and  land-based  defensive  aircraft.  The 
Red  forces  in  the  model  consist  of  surface  ships,  submarines, 
land-based  attack  and  defensive  aircraft,  and  ground  defenses. 
(A  complete  discussion  of  these  resources  is  given  below.) 

The  model  is  designed  to  simulate  combat  between  these  forces 
in  areas  in  which  geography  can  play  a  significant  role,  such 
as  in  the  Mediterranean  area;  and  the  first  use  of  the  model 
is  expected  to  be  an  analysis  of  naval  combat  in  the  Medit¬ 
erranean.  The  model  described  here  was  originally  named 
MEDMOD  (for  Mediterranean  Model)  because  of  this  intended 
initial  use.  However,  the  model  is  not  inherently  restricted 
to  simulating  combat  in  the  Mediterranean,  and  the  model  can 
be  used  (with  different  inputs)  to  address  naval  combat  in 
other  areas.  To  emphasize  that  the  model  is  not  inherently 
restricted  to  the  Mediterranean,  the  name  of  the  model  will 
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be  changed  to  NAVMOD  (for  Naval  Model).  In  particular,  the 
model  will  be  called  MEDMOD  In  this  preliminary  documentation, 
and  will  be  called  NAVMOD  in  the  final  documentation  to  be 
written  in  the  near  future.  (A  few  improvements  will  also  be 
made;  thus,  there  will  be  a  few  technical  differences  between 
the  model  described  here,  called  MEDMOD,  and  the  future  version 
of  the  model,  called  NAVMOD.) 

One  goal  in  the  design  of  MEDMOD  is  to  include  geograph¬ 
ical  considerations  in  an  aggregated  model — but  not  to  build  a 
model  that  simulates  either  combat  or  geography  (or  both)  in 
great  detail.  Accordingly,  the  combat  interactions  and  the 
geographical  considerations  are  both  relatively  highly  aggre¬ 
gated.  Thus,  MEDMOD  is  intended  to  be  appropriate  for  studies 
which  can  profitably  use  a  comprehensive  aggregated  model,  but 
which  could  not  adequately  use  existing  models  either  because 
these  models  did  not  address  geography  at  all  or  because  they 
were  too  detailed  and  insufficiently  comprehensive.  One  pur¬ 
pose  of  this  documentation  is  to  describe  MEDMOD  sufficiently 
well  that  a  prospective  user  can  determine  whether  MEDMOD 
would  be  a  helpful  tool  to  assist  in  analyzing  any  particular 
prob lem. 

Much  of  MEDMOD  was  constructed  by  using  concepts  or 
computer  code  already  developed  for  other  models;  this  charac¬ 
teristic  is  discussed  in  greater  detail  in  Section  B,  below. 
Sections  C  and  D  discuss  the  geography  and  resources,  respec¬ 
tively,  simulated  in  MEDMOD.  Section  E  presents  a  brief  over¬ 
view  of  the  major  combat  interactions  simulated  in  MEDMOD. 

The  current  status  of  the  MEDMOD  computer  program  is  discussed 
in  Section  F. 

Chapter  II  presents  the  structure  of  the  MEDMOD  computer 
program  and  discusses  each  of  the  major  interactions  it 
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simulates  in  greater  detail  than  Section  E.  Chapter  III  pre¬ 
sents  some  limitations  of  MEDMOD. 

B.  BACKGROUND 

The  decision  to  build  a  comprehensive  model  of  naval 
combat  that  includes  geographic  considerations  was  based,  in 
part,  on  the  fact  that  the  Institute  for  Defense  Analyses  (IDA) 
had  recently  built  an  aggregated  model  of  an  air  and  submarine 
attack  on  a  carrier  task  force.  This  model  is  described, 
documented,  and  used  in  IDA  Report  R-245  (Reference  [1]), 
and  will  be  called  the  R-245  model  here.  The  R-245  model  is 
similar  in  scope  and  aggregation  to  the  model  described  in 
Reference  [2]  (and  many  of  the  data  used  in  Reference  [1] 
came  from  Reference  [2] ) . 

The  computer  program  for  the  R-245  model  was  modified 
and  converted  into  a  suoroutine  of  MEDMOD.  This  subroutine, 
called  CTPMOD ,  is  essentially  the  core  of  MEDMOD. 

This  documentation  of  MEDMOD  does  not  require  that  the 
reader  either  has  read  R-245  or  is  familiar  with  the  R-245 
model.  However,  the  reader  who  is  interested  in  details 
concerning  the  CTFMOD  portion  of  MEDMOD  is  urged  to  read  the 
portions  of  R-245  which  describe  its  model  and  data. 

C.  GEOGRAPHY 

MEDMOD  requires  that  the  seas  (and/or  ocean)  of  interest 
be  divided  into  a  number  of  geographic  regions  (or,  synony¬ 
mously,  locations).  MEDMOD  is  currently  dimensioned  to  hold 
up  to  six  such  regions — combat  can  take  place  in  five  of 
these  regions  with  the  remaining  region  being  a  "sanctuary" 
region.  (The  sanctuary  region  is  labeled  as  Region  0.)  Thus, 
for  example,  the  Mediterranean  area  can  be  divided  into  the 
following  six  regions:  (0)  the  Atlantic  Ocean,  (1)  the  Wes¬ 
tern  Mediterranean  (the  portion  of  the  Mediterranean  west  of 
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Figure  1.  SAMPLE  GEOGRAPHIC  REGIONS  FOR  MEDMOD 


Corsica  and  Sardinia),  (2)  the  Tyrrhenian  Sea,  (3)  the  Central 
Mediterranean  (the  portion  of  the  Mediterranean  bounded  by 
Italy,  Tunisia,  Libya,  and  Greece,  including  the  Ionian  Sea), 

(4)  the  Eastern  Mediterranean  (the  part  of  the  Mediterranean 
east  of  the  shortest  line  connecting  Libya  and  Greece),  and 

(5)  the  Aegean  Sea.  This  division  of  the  Mediterranean  is 
illustrated  in  Figure  1. 

Relabeling  these  regions  could  allow  the  Adriatic  Sea 
to  be  played  instead  of  the  Aegean  or  the  Eastern  Mediter¬ 
ranean,  for  example.  Another  relabeling  could  allow  the 
Western  Mediterranean  to  be  split  into  two  (or  more)  regions 
provided  either  that  one  (or  more)  of  the  other  regions  are 
deleted  or  that  the  dimensions  of  MEDMOD  are  expanded. 

MEDMOD  uses  these  regions  in  the  following  manner. 

First,  the  specific  location  of  ships  within  any  of  these 
regions  is  not  accounted  for — MEDMOD  only  portrays  that  ships 
are  somewhere  inside  these  regions. 

Second,  Red  surface  ships  can  be  in  any  region  except 
Region  0,  and  those  Red  ships  can  simultaneously  be  in  several 
or  all  of  the  regions  (except  Region  0).  All  Blue  surface 
ships,  however,  are  assumed  to  be  in  one  Blue  task  force  and, 
at  any  point  in  time,  the  task  force  is  in  one  (and  only  one) 
of  these  regions,  including  Region  0. 

Third,  Red  submarines  can  be  in  any  (or  all)  regions 
(except  Region  0),  and  can  also  be  in  barriers  between  regions. 
Blue  submarines  can  be  in  direct  support  of  the  task  force 
(i.e.,  in  the  same  region  as  the  task  force),  and  can  also 
be  in  barriers  between  regions. 

Rules  based  on  input  parameters  determine  the  movement 
of  the  Blue  task  force  and  any  supporting  submarines  from 
region  to  region  (these  rules  will  be  described  later).  For 
example,  the  task  force  might  start  in  Region  0  and  remain 
there  for  one  time  period,  then  move  to  Region  1  and  remain 
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there  for  two  time  periods,  then  move  to  Region  2  for  one 
time  period,  then  move  from  Region  3  for  four  time  periods, 
then  move  from  Region  4  for  three  time  periods,  then  move  to 
Region  5  for  the  rest  of  the  war  (i.e.,  until  an  input  maximum 
number  of  time  periods  has  been  simulated  or  until  the  task 
force  loses  all  its  effectiveness,  as  discussed  below). 

MEDMOD  does  not  necessarily  assume  that  the  task  force 
moves  from  west  to  east.  Appropriate  inputs  would  allow  a 
task  force  to  move  back  and  forth  between  regions,  or  to 
start  in  Region  5  (for  example)  and  attempt  to  escape  to 
Region  0.  However,  for  simplicity,  MEDMOD  assumes  that  a 
task  force  in  Region  i  either  remains  in  Region  i,  moves  to 
Region  i+1  (unless  i  is  the  largest  numbered  region  being 
played),  or  moves  to  Region  i-1  (unless  i  is  0).  That  is, 
the  task  force  cannot  move  from  Region  i  to  Region  j  if 
|  i- j  |  _>  2  without  spending  at  least  one  time  period  in  each 
region  between  i  and  j .  The  reason  for  this  restriction 
is  to  simplify  the  number  of  possible  interactions  between 
ships  and  submarines  in  barriers.  If  the  Blue  task  force 
attempts  to  move  from  Region  i  to  Region  i+1  (or  from  Region 
i+1  to  Region  i),  then  the  task  force  (and  any  submarines  in 
direct  support  of  it)  will  have  to  cross  a  Red  submarine 
barrier  if  (and  only  if)  there  are  Red  submarines  in  a  bar¬ 
rier  between  Region  i  and  Region  i+1.  As  currently  dimen¬ 
sioned,  MEDMOD  plays  up  to  six  regions,  so  there  can  be  up 
to  five  possible  Red  submarine  barriers. 

Similarly,  another  set  of  rules  (described  later)  deter¬ 
mines  the  movement  of  Red  surface  ships  and  non-barrier  sub¬ 
marines  from  region  to  region.  Red  surface  ships  and  non¬ 
barrier  submarines  can  also  move  at  most  one  region  during 
a  time  period;  and  any  Red  ship  or  submarine  attempting  to 
move  from  Region  i  to  Region  i+1  (or  from  Region  i+1  to 
Region  i)  will  have  to  cross  a  Blue  submarine  barrier  if 
and  only  if  there  are  Blue  submarines  in  a  barrier  between 
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Region  i  and  Region  i+1.  As  currently  dimensioned,  there 
can  be  up  to  five  possible  Blue  submarine  barriers.  However, 
since  Region  0  is  a  sanctuary,  the  movement  rules  in  MEDMOD 
prohibit  Red  surface  ships  and  submarines  from  entering 
Region  0,  and  so  a  Blue  submarine  barrier  between  Region  0 
and  Region  1  would  be  inactive. 

Unlike  surface  ships  or  submarines  in  regions.  Red  and 
Blue  submarines  in  barriers  are  never  (automatically)  moved 
to  any  other  barrier  or  to  inside  any  region  by  MEDMOD.  (As 
described  later,  all  resources  can  be  moved  by  inputs,  but 
Red  and  Blue  barrier  submarines  can  only  be  moved  this  way — 
they  cannot  automatically  be  moved  by  the  MEDMOD  code.) 

Finally,  many  of  the  inputs  for  effectiveness  parameters 
in  MEDMOD  are  functions  of  the  location  of  the  task  force. 
Thus,  while  the  task  force  is  in  Region  2,  for  example,  one 
set  of  effectiveness  parameters  is  used;  and  if  the  task 
force  moves  to  Region  3?  a.  (potentially)  different  set  of 
effectiveness  parameters  is  automatically  used. 

D.  RESOURCES 
1  .  Blue  Resources 

Blue  resources  in  MEDMOD  can  be  grouped  into  four  classes 
surface  ships,  submarines,  carrier-based  aircraft,  and  land- 
based  aircraft. 

a .  Surface  Ships 

MEDMOD  simulates  the  following  five  types  of  Blue  surface 
ships:  aircraft  carriers,  antiair  warfare  (AAW)  escort  ships, 

air-capable  (i.e.,  LAMPs-capab le )  antisubmarine  warfare  (ASW) 
escort  ships,  nonair-capable  ASW  escort  ships,  and  underway 
replenishment  ships.  Multiple  subtypes  within  these  five 
types  cannot  be  simulated  in  the  same  run  of  MEDMOD.  However, 
one  run  of  MEDMOD  could  be  made  that  simulates  one  type  of 
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aircraft  carrier,  for  example,  and  another  run  of  MEDMOD  could 
be  made  (with  different  inputs)  to  simulate  a  different  type 
of  aircraft  carrier — but  two  different  types  of  carriers 
operating  simultaneously  cannot  be  simulated.  There  are  no 
computer  limitations  on  the  number  of  ships  in  any  of  the 
five  types.  That  is,  virtually  any  number  of  ships  in  each 
of  these  five  types  can  be  input  to  MEDMOD.  However,  since 
MEDMOD  simulates  only  one  task  force,  all  Blue  surface  ships 
must  be  part  of  the  same  task  force. 

MEDMOD  does  not  require  that  these  resources  (or  any 
Blue  or  Red  resources)  be  strictly  positive.  That  is,  if  a 
user  of  MEDMOD  desires  to  not  simulate  any  type  of  resource 
in  a  particular  run,  then  this  can  be  accomplished  by  input¬ 
ting  zero  for  the  number  of  that  type  of  resource  in  that 
run.  For  example,  a  task  force  consisting  only  of  ASW 
destroyers  protecting  a  region  can  be  simulated  by  playing 
only  these  ships  (so  that  the  task  force  would  have  no 
carriers,  AAW  escorts,  or  replenishment  ships). 

b .  Su  bma  r i nes 

MEDMOD  simulates  one  type  of  Blue  submarine  in  direct 
support  of  the  task  force.  These  submarines  move  with  the 
task  force  and  so  are  always  in  the  same  region  as  the  task 
force.  MEDMOD  simulates  one  type  of  Blue  submarine  in 
barriers  between  regions,  and  this  type  of  submarine  can 
be  different  than  the  Blue  submarines  in  direct  support  of 
the  task  force.  As  stated  above,  Blue  can  have  submarine 
barriers  between  any  (or  all)  consecutively  numbered  regions. 
Again,  there  are  no  computer  limitations  on  the  number  of 
Blue  submarines  of  either  type  simulated  in  MEDMOD. 
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c .  Carrier-Based  Aircraft 

MEDMOD  plays  the  following  four  types  of  Blue  carrier- 
based  aircraft:  attack  aircraft,  fighter  aircraft,  airborne 
early  warning  (AEW)  aircraft,  and  ASW  aircraft.  Multiple 
subtypes  within  any  of  these  four  types  of  aircraft  cannot 
be  simulated  in  the  same  run  of  MEDMOD.  There  are  no  com¬ 
puter  limitations  on  the  number  of  aircraft  in  each  of  these 
four  types.  Of  course,  a  user  of  MEDMOD  should  use  inputs 
for  the  number  of  these  types  of  aircraft  that  are  consistent 
with  the  number  (and  type)  of  aircraft  carriers  being  simu¬ 
lated.  Since  all  carriers  are  in  one  task  force,  all  carrier- 
based  aircraft  are  always  in  the  same  region  that  the  task 
force  is  in. 

AEW  aircraft  provide  warning  (i.e.,  time  and  exact  posi¬ 
tion)  of  the  Red  air  raid  so  that  fighters  on  the  carriers 
assigned  to  deck  launched  intercept  (DLI)  missions  can  take 
off  and  be  vectored  to  the  attack,  and  fighters  in  the  air 
on  combat  air  patrol  (CAP)  missions  can  move  toward  the 
incoming  raid.  ASW  aircraft  form  an  outer  ASW  screen  around 
the  task  force.  Attack  aircraft  can  be  used  on  any  or  all 
of  three  missions:  anti-surface  ship  warfare  (to  kill  Red 
surface  ships  in  the  same  region  as  the  task  force),  airbase 
attack  missions  (to  kill  Red  land-based  aircraft),  and  power 
projection  missions.  MEDMOD  simulates  these  first  two  inter¬ 
actions  (Blue  attack  aircraft  versus  Red  surface  ships,  and 
Blue  attack  aircraft  on  airbase  attack  missions)  in  a  direct 
but  aggregated  manner.  However,  MEDMOD  does  not  simulate 
ground-to-ground  forces  (such  as  tanks,  infantry,  or  ground- 
to-ground  artillery)  on  either  side,  thus  the  effects  of  Blue 
power  projection  missions  are  not  simulated.  Instead,  the 
number  of  power  projection  missions  successfully  flown  is  an 
output  measure  of  effectiveness  of  MEDMOD.  This  number  of 
power  projection  missions  successfully  flown  can  be  an  absolute 
number  or  can  be  weighted  by  type  of  aircraft  (Blue  fighters 
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can  also  fly  power  projection  missions)  and  by  the  geographic 
region  that  the  task  force  was  in  when  these  missions  were 
flown.  Blue  fighters  can  fly  all  missions  that  attack  air¬ 
craft  can  fly,  though  (perhaps)  at  different  levels  of  effec¬ 
tiveness.  In  addition.  Blue  fighters  can  defend  the  carrier 
by  flying  CAP  or  DLI  missions  as  .stated  above,  and  can  escort 
the  aircraft  that  are  attacking  the  notional  vulnerable  Red 
airbase . 

d .  Land-Based  Aircraft 

MEDMOD  plays  three  classes  of  Blue  land-based  aircraft: 
AEW  aircraft,  ASW  aircraft,  and  interceptors  (strictly  speak¬ 
ing,  interceptors  are  fighter  aircraft  that  are  restricted  to 
fly  only  intercept  missions).  There  can  only  be  one  type  of 
land-based  AEW  aircraft,  but  it  can  differ  from  the  one  type 
of  carrier-based  AEW  aircraft  in  MEDMOD,  and  the  same  holds 
for  ASW  aircraft.  MEDMOD  can  play  multiple  types  of  land- 
based  interceptors — it  is  currently  dimensioned  to  play  up 
to  two  different  types  of  these  interceptors.  Land-based  Blue 
aircraft  are  associated  with  regions  and  a  different  number 
of  these  aircraft  can  be  associated  with  each  region.  Thus, 
for  example,  there  can  be  10  land-based  AEW  aircraft,  20 
land-based  ASW  aircraft,  30  interceptors  of  Type  1,  and  40 
interceptors  of  Type  2  associated  with  Region  1,  and  15  land- 
based  AEW,  25  land-based  ASW  aircraft,  35  interceptors  of 
Type  1,  and  40  interceptors  of  Type  2  associated  with  Region 
2.  Land-based  AEW  and  ASW  aircraft  associated  with  a  par¬ 
ticular  region  contribute  to  the  defense  of  the  task  force 
only  when  the  task  force  is  in  that  region.  Land-based  inter¬ 
ceptors  can  help  contribute  to  the  defense  of  the  task  force 
no  matter  where  the  interceptors  and  task  force  are  located; 
however,  the  degree  of  their  contribution  can  depend  on  these 
locations.  Again,  there  are  no  computer  limitations  on  the 
numbers  of  land-based  aircraft  simulated  in  MEDMOD. 
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It  should  be  noted  that  the  R-245  model  can  simulate 
armed  land-based  AEW  aircraft.  This  capability  has  been 
deleted  in  CTFMOD,  and  so  MEDMOD  can  only  simulate  unarmed 
AEW  aircraft.  (Carrier-based  AEW  aircraft  are  always  unarmed 
in  the  R-245  model  and  in  MEDMOD.) 

The  missions  of  land-based  AEW  and  ASW  aircraft  are  the 
same  as  for  the  corresponding  carrier-based  aircraft.  MEDMOD 
simulates  only  one  mission  for  the  Blue  land-based  inter¬ 
ceptors,  namely,  to  form  an  air  barrier  which  Red  bombers 
(and  their  escort  aircraft,  if  any)  may  have  to  pass  through 
in  order  to  reach  the  Blue  task  force. 

2  .  Red  Resources 

Red  resources  in  MEDMOD  can  be  grouped  into  four  classes: 
surface  ships,  submarines,  land-based  aircraft,  and  ground 
defenses . 

a .  Surface  Ships 

MEDMOD  does  not  simulate  Red  surface  ships  in  the  same 
degree  of  detail  it  simulates  Blue  surface  ships.  Instead, 
MEDMOD  simulates  generic  Red  surface  ships  which  can  consist 
of  up  to  eight  different  specific  types  of  ships  (as  currently 
dimensioned).  Almost  all  of  the  effectiveness  parameters 
associated  with  Red  surface  ships  are  a  function  of  the  type 
of  Red  ship.  Red  surface  ships  can  simultaneously  be  in  any 
(or  all)  of  the  geographic  regions  except  for  Region  0,  and 
there  are  no  computer  limitations  on  the  number  of  Red  ships 
of  any  type  in  any  region  (other  than  Region  0). 

b .  Submari nes 

MEDMOD  simulates  two  types  of  Red  submarines  "in  regions. 
These  two  types  of  Red  submarines  can  be  in  any  region,  except 
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Region  0.  These  two  types  of  Red  submarines  are:  (1)  sub¬ 
marines  that  fire  (only)  torpedoes  at  the  task  force,  and 
(2)  submarines  that  fire  (only)  antiship  cruise  missiles  at 
the  task  force.  MEDMOD  also  simulates  a  third  type  of  Red 
submarine  "in  barriers."  This  type  (and  only  this  type)  of 
submarine  can  form  the  Red  submarine  barriers  between  consec¬ 
utively  numbered  regions.  There  are  no  computer  limitations 
on  the  numbers  of  these  submarines  that  can  be  in  any  region 
(for  the  first  two  types)  or  in  any  barrier  (for  the  third 
type ) . 

c .  Land-Based  Aircraft 

MEDMOD  can  simulate  three  general  classes  of  Red  land- 
based  aircraft:  bombers,  multiple  role  fighters  (that  can 
fly  either  escort  or  intercept  missions),  and  interceptors 
(i.e.,  fighters  that  can  only  fly  intercept  missions).  MEDMOD 
can  simulate  only  one  type  of  multiple  role  Red  fighter  and 
only  one  type  of  Red  interceptor  in  any  one  run.  However, 
MEDMOD  can  simultaneously  simulate  multiple  types  of  Red 
bombers  in  the  same  run — it  is  currently  dimensioned  to  hold 
up  to  three  different  types  of  Red  bombers.  The  bombers 
and  multiple  role  fighters  can  be  based  on  either  of  two 
notional  aggregated  airbases,  each  of  which  can  be  thought  of 
as  consisting  of  a  (possibly  different)  number  of  identical 
typical  airbases.  One  of  these  aggregated  airbases  is  assumed 
to  be  vulnerable  to  attack  from  carrier— based  aircraft,  the 
other  is  assumed  to  be  invulnerable  to  attack.  (MEDMOD  sim¬ 
ulates  only  carrier-based  air  attacks  on  Red  airbases,  not 
ground-based  air  attacks.)  If  desired,  all  Red  bombers  and 
fighters  could  be  located  on  one  base  or  the  other,  or  these 
aircraft  can  be  split  in  any  manner  between  these  bases.  In 
addition  to  vulnerability,  sortie  rates  can  be  a  function  of 
base.  However,  once  in  the  air,  the  effectiveness  parameters 
of  these  aircraft  are  not  functions  of  their  home  base. 
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Since  one  airbase  is  invulnerable  to  attack,  all  multiple 
role  fighters  on  this  airbase  always  fly  escort  missions. 
Multiple  role  fighters  on  the  other  airbase  can  be  split  in 
any  manner  (by  input)  between  escort  and  intercept  missions. 
Also,  since  one  airbase  is  invulnerable  to  attack,  there  is 
no  point  in  stationing  interceptors  on  that  base.  Thus, 
interceptors  can  only  be  stationed  on  the  notional  vulnerable 
Red  airbase  in  MEDMOD. 

Red  bombers  have  only  one  mission  in  MEDMOD — to  attack 
the  Blue  task  force.  Red  fighters  on  the  vulnerable  Red 
airbase  can  fly  escort  missions  for  these  bombers  (in  order 
to  protect  bombers  from  Blue  land-based  interceptors  and 
carrier-based  fighters)  or  can  fly  intercept  missions  (to 
protect  the  notional  vulnerable  Red  airbase  from  Blue  carrier- 
based  air  attacks).  As  stated  above.  Red  fighters  on  the 
invulnerable  Red  airbase  can  only  fly  escort  missions  and 
Red  interceptors  (which  must  be  on  the  vulnerable  Red  airbase) 
can  only  fly  intercept  missions. 

d .  Ground  Defenses 

MEDMOD  simulates  two  classes  of  ground  defenses  for 
the  vulnerable  Red  airbase:  shelters  and  surface-to-air  mis¬ 
sile  systems — SAMs.  MEDMOD  plays  only  one  type  of  shelter 
for  Red  aircraft,  but  it  contains  quite  flexible  rules  con¬ 
cerning  which  types  of  Red  aircraft  can  and  cannot  be  shel¬ 
tered.  MEDMOD  can  simulate  multiple  different  types  of  SAMs 
defending  Red  airbases — it  is  currently  dimensioned  to  hold 
up  to  two  different  types  of  SAMs. 

MEDMOD  also  simulates  Red  SAMs  defending  against  attacks 
by  Blue  power  projection  missions.  Multiple  types  of  Red 
SAMs  can  be  played.  MEDMOD  is  currently  dimensioned  to  hold 
up  to  two  different  types  of  SAMs  defending  against  power 
projection  missions,  and  these  types  can  be  different  than 
the  types  of  SAMs  defending  Red  airbases. 
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3  . 


Movement  of  Resou rc es 


As  indicated  above,  the  Blue  task  force  (and  so  all 
resources  that  are  part  of  the  task  force,  as  well  as  sub— 
Hi&riftss  in  direct  support  of  the  task  force)  can  be  auto¬ 
matically  moved  from  region  to  region  during  the  war  simulated 
by  MEDMOD.  (This  movement  is  calculated  by  Subroutine  MOVTP 
in  MEDMOD. )  Red  surface  ships  and  submarines  in  regions  can 
also  be  automatically  moved  from  -region  to  region  by  MEDMOD. 
(This  movement  is  calculated  by  Subroutine  MOVRS  in  MEDMOD.) 
Other  than  these  movements,  no  resources  are  automatically 
moved  by  MEDMOD,  no  resources  are  automatically  added  to  the 
theater  (as  reinforcements  or  replacements)  during  the  war 
and,  except  for  attrition,  no  resources  are  automatically 
deleted  or  moved  out  of  the  theater  during  the  war. 

j-he  term  'automatically"  here  means  "according  to  a 
set  of  rules  other  than  direct  user  input  specification  that 
a  certain  number  of  a  certain  type  of  resource  is  to  be 
moved  from  place  a  to  place  b  at  time  t  no  matter  what  else 
is  happening  in  the  model."  MEDMOD  always  allows  any. resource 
to  be  added,  deleted,  or  moved  at  the  start  of  any  time  period 
by  direct  input  specification  (of  course,  a  resource  should 
be  moved  or  deleted  at  the  beginning  of  a  time  period  only 
if  it  has  not  yet  been  destroyed  by  enemy  forces). 

For  example,  three  additional  AAW  escorts  can  be  added 
to  the  simulation  at  the  start  of  time  period  eight  by  simply 
stating  in  the  inputs  to  MEDMOD  that  the  number  of  escorts 
is  to  be  incremented  by  +3  at  the  start  of  time  period  eight. 
Also,  ten  Red  fighters  on  the  vulnerable  airbase  can  be 
deleted  from  the  simulation  at  the  start  of  time  period  six 
by  stating  in  the  inputs  to  MEDMOD  that  the  number  of  Red 
fighters  on  the  vulnerable  airbase  is  to  be  incremented  by 
-10  at  the  start  of  time  period  six.  Note,  however,  that  a 
previous  run  with  (essentially)  exactly  the  same  inputs  must 
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have  been  made  to  determine  that  there  will  be  at  least  ten 
Red  fighters  "alive"  on  the  vulnerable  airbase  at  the  start 
of  time  period  six  (otherwise,  the  number  of  these  Red 
fighters  would  become  negative).  Similarly,  for  example, 
four  Red  submarines  can  be  moved  from  the  barrier  between 
Regions  0  and  1  to  the  barrier  between  Regions  2  and  3  at 
the  start  of  time  period  five  by  stating  in  the  inputs  that 
the  number  of  Red  submarines  in  the  first  barrier  is  to  be 
incremented  by  -4  and  the  number  of  Red  submarines  in  the 
latter  barrier  is  to  be  incremented  by  +4  at  the  start  of 
time  period  five.  Again,  a  previous  run  of  MEDMOD  with  essen¬ 
tially  the  same  inputs  must  have  been  made  to  determine  that 
there  are  at  least  four  Red  submarines  still  in  the  first 
barrier  at  the  start  of  time  period  five.  Note  also  that  if 
a  user  of  MEDMOD  desires  this  move  to  take  place  over,  say, 
three  time  periods,  that  during  these  three  time  periods  the 
Red  submarines  will  only  be  moving  (they  will  not  be  causing 
attrition  to  any  Blue  resources)  and  that  the  user  believes 
that,  on  average,  one-half  of  a  submarine  will  be  lost  on 
this  move,  then  this  can  be  done  in  MEDMOD  stating  in  the 
inputs  that  the  first  barrier  is  to  be  incremented  by  -4  at 
the  start  of  time  period  five  and  that  the  latter  barrier  is 
to  be  incremented  by  +3-5  at  the  start  of  time  period  eight. 

Resources  are  incremented  using  the  TIMET  subroutine  in 
MEDMOD.  This  subroutine  also  allows  any  value  for  any  effec¬ 
tiveness  parameters  to  be  replaced  (not  incremented)  by  any 
other  value  at  the  start  of  any  time  period. 

E.  OVERVIEW  OF  COMBAT  INTERACTIONS 

In  general,  combat  in  MEDMOD  consists  of  a  "D-day  shoot¬ 
out"  that  is  simulated  (at  most)  once  at  the  very  start  of 
combat,  and  of  repeated  cycles  through  all  other  combat 
interactions . 
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The  purpose  of  the  D-day  shoot-out  is  to  reflect  the 
capability  of  those  Red  submarines  and  surface  ships  that 
are  trailing  the  task  force  (i.e.,  "tattletales")  to  inflict 
damage  on  the  task  force.  A  D-day  shoot-out  cannot  occur 
if  the  task  force  is  initially  in  Region  0,  and  no  Red  air¬ 
craft  are  involved  in  this  shoot-out. 

After  the  D-day  shoot-out,  the  (all  other)  combat  inter¬ 
action  section  is  entered.  This  section  consists  of  cycles 
through  the  following  interactions  or  events. 

First,  a  Red  air  attack  against  the  Blue  task  force  can 
be  generated  (no  combat  occurs  here).  Second,  combat  between 
this  Red  air  attack  and  the  Blue  land-based  air  barrier  is 
simulated  (provided  that  there  is  a  Red  attack  and  that  Blue 
has  a  land-based  air  barrier).  Third,  combat  between  Red 
submarines  that  are  attempting  to  attack  the  task  force  and 
Blue  submarines  that  are  in  direct  support  of  the  task  force 
is  simulated.  (One  can  think  of  this  submarine  combat  as 
occurring  before  or  during  the  generation  and  flight  of  the 
Red  air  attack;  the  relevant  point  here  is  that  this  sub¬ 
marine  combat  must  be  simulated  before  the  Red  submarines 
attack  the  task  force,  which  comes  next.)  Fourth,  the  Red 
aircraft  and  submarine  attack  on  the  task  force  is  simulated. 
(This  attack  is  simulated  in  Subroutine  CTFMOD  of  MEDMOD  which, 
as  stated  above,  is  strongly  based  on  the  R-245  model  of  an 
air  and  submarine  attack  on  a  task  force.)  Fifth,  combat 
between  Red  surface  ships  that  are  attempting  to  attack  the 
task  force  and  the  task  force  ships  (and  aircraft,  if  the 
task  force  contains  aircraft  carriers)  is  simulated.  Sixth, 
if  there  are  carriers  in  the  task  force,  their  aircraft  can 
attempt  to  fly  power  projection  missions. 

If  the  task  force  has  no  remaining  effectiveness  at 
this  point,  then  no  more  combat  is  simulated  (the  definition 
of  effectiveness  used  here  will  be  given  in  Chapter  II). 
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Otherwise,  if  the  rules  governing  movement  of  the  task  force 
indicate  that  a  move  is  called  for,  then  the  task  force  is 
moved  to  a  new  region  at  this  point.  If  such  a  move  is 
called  for  and  if  it  involves  crossing  a  Red  submarine  bar¬ 
rier,  then  combat  between  the  Red  submarines  in  that  barrier 
and  the  Blue  task  force  (including  submarines  in  direct 
support  of  the  task  force)  is  simulated.  Red  ships  and 
submarines  in  regions  are  then  to  be  moved  according  to  their 
movement  rules;  and  if  this  movement  results  in  these  Red 
resources  crossing  Blue  submarine  barriers,  then  combat  is 
simulated  between  these  Red  resources  and  the  Blue  submarines 
in  the  barriers  being  crossed.  Finally,  an  attack  by  Blue 
carrier-based  fighters  and  attack  aircraft  on  the  notional 
vulnerable  Red  airbase  is  simulated.  After  this  airbase 
attack,  if  the  input  maximum  number  of  time  periods  has  not 
yet  been  simulated  (and  if  the  task  force  is  not  at  zero 
effectiveness)  then  MEDMOD  cycles  through  these  same  combat 
interactions  (in  the  same  order)  for  the  next  time  period. 
Otherwise,  no  more  combat  is  simulated,  summary  results  are 
printed,  and  the  simulation  ends. 

All  of  these  combat  interactions  are  discussed  in  greater 
detail  in  Chapter  II. 

F.  STATUS  OF  MEDMOD 

This  documentation  is  preliminary  in  that  portions  of 
Chapter  II  will  be  discussed  in  greater  detail  in  the  near 
future  in  order  to  more  thoroughly  document  MEDMOD  (which 
will  then  be  called  NAYMOD).  Very  few  additional  resources 
or  combat  interactions  will  be  added  to  MEDMOD  in  the  near 
future.  Thus,  the  overview  of  MEDMOD  given  in  Sections  A 
through  E  above  is  (for  the  near  future)  virtually  final, 
not  preliminary. 


17 


In  particular,  the  current  status  of  MEDMOD  is  as 
follows:  The  programming  of  MEDMOD  is  complete.  That  is, 

an  input  routine,  all  of  the  combat  interaction  routines, 
two  types  of  output  displays,  and  the  code  to  hold  it  all 
together  have  been  programmed.  Nothing  essential  is  missing, 
but  some  improvements  (primarily  in  terms  of  improved  output 
formats  and  additional  output  tables)  will  be  added  in  the 
near  future.  An  unclassified  and  entirely  hypothetical  data 
base  has  been  prepared,  MEDMOD  has  been  successfully  run 
with  this  data  base,  and  brief  initial  tests  of  MEDMOD  have 
been  completed. 

G.  COMPUTER  STORAGE  SPACE  AND  RUNNING  TIME  REQUIREMENTS 

The  current  version  of  MEDMOD  is  about  26,100  (decimal) 
words  long.  However,  because  it  is  overlaid,  MEDMOD  consumes 
a  maximum  of  about  22,000  words  of  core.'  (This  overlay 
structure  is  not  necessary  and  would  be  easy  to  remove;  it 
was  incorporated  in  MEDMOD  in  anticipation  of  possible  future 
expansion.)  Of  the  core  consumed,  about  1,400  words  are'  used 
to  store  the  inputs  in  blank  COMMON,  and  about  100  words  are 
used  for  labeled  COMMON  storage — the  rest  is  code.  MEDMOD 
contains  about  3,300  FORTRAN  statements  (counting  each  dis¬ 
tinct  COMMON  statement  only  once,  not  each  time  it  appears, 
counting  continued  FORTRAN  statements  as  one  statement,  and 
not  counting  COMMENT  cards).  There  are  about  1,000  COMMENT 
cards  (including  blank  spacers)  in  the  MEDMOD  code. 

The  running  time  of  MEDMOD  on  IDA's  CDC-6400  computer 
is  currently  about  five  seconds  (for  the  one-time  calculations, 
such  as  Overlay  INP  and  Subroutine  DDAY )  plus  0.5  to  0.8 
seconds  per  time  period  simulated. 
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Chapter  II 

DISCUSSION  OF  COMBAT  INTERACTIONS 

A  useful  and  appropriate  way  to  discuss  the  combat  inter¬ 
actions  of  MEDMOD  is  in  terms  of  the  major  subroutines  of 
the  MEDMOD  computer  program.  Section  A,  below,  presents 
the  basic  structure  of  this  computer  program,  and  Sections 
B  through  N  briefly  discuss  the  13  major  subroutines  currently 
used  in  the  MEDMOD  computer  program. 

A.  STRUCTURE  OF  THE  MEDMOD  COMPUTER  PROGRAM 
1  .  Structure  of  the  Overlays 

The  MEDMOD  computer  program  consists  of  a  main  overlay, 
DRIVER,  and  two  overlay  programs,  INP  and  MEDMOD. 

Overlay  INP  only  reads  in  and  prints  out  the  inputs. 

INP  has  been  used  to  read  and  print  inputs  in  other  models 
(TACWAR  [3],  IDATAM  [4],  and  IDACASE  [5]).  Appendix  A  con¬ 
tains  extracts  from  [4]  and  [5]  which  describe  in  detail  how 
to  input  data  using  INP,  and  these  extracts  apply  to  MEDMOD 
as  well  as  to  IDATAM  and  IDACASE. 

It  should  be  noted  that  INP  contains  some  computer- 
specific  FORTRAN.  Changes  required  to  convert  INP  to  machines 
other  than  those  like  IDA's  CDC  6400  are  also  discussed  in 
Appendix  A,  and  INP  has  been  successfully  converted  to  other 
machines.  (Because  INP  only  reads  and  displays  inputs,  INP 
could  be  replaced  by  a  different  input  routine,  If  a  user 
of  MEDMOD  so  desires,  without  affecting  the  logic  or  code  of 
the  combat  interactions  simulated  in  MEDMOD. ) 
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Overlay  MEDMOD  contains  the  simulations  of  all  the  Inter¬ 
actions  being  modeled.  Thus,  any  statement  about  Overlay 
MEDMOD  also  usually  applies  to  the  whole  MEDMOD  computer  pro¬ 
gram  and  vice  versa.  In  those  cases  where  the  distinction 
is  important,  the  terms  "Overlay  MEDMOD"  for  the  overlay  and 
"MEDMOD  computer  program"  for  the  whole  program  will  be  used. 

Before  discussing  Overlay  MEDMOD,  a  few  words  about 
DRIVER  are  in  order.  DRIVER  performs  three  functions:  It 
calls  Overlay  INP  to  read  and  display  the  Inputs,  it  calls 
Overlay  MEDMOD  to  perform  the  simulations,  and  it  writes 
column  headings  and  related  information  for  the  summary  out¬ 
put  table.  (Subroutine  PRTSUM  in  Overlay  MEDMOD  writes  one 
row  of  results  for  each  time  period  under  these  column  head¬ 
ings  on  the  summary  output  table.)  This  output  table  is 
stored  on  a  separate  output  file  (labeled  TAPE10 ) ,  and  the 
operating  system  (job  control  language)  prints  this  output 
file  after  the  MEDMOD  computer  program  has  completed  the 
simulation  of  the  war  being  examined.  This  structure  allows 
summary  results,  which  are'  calculated  during  each  time  period, 
to  be  written  onto  an  output  file  (so  that  they  do  not  take 
up  storage  space  in  computer  memory) — yet  the  output  file  is 
not  printed  until  the  run  is  over  so  that  the  summary  outputs 
all  appear  at  the  end  of  the  run,  not  mixed  in  with  the 
detailed  outputs  for  each  time  period. 

2  .  Overlay  MEDMOD 

Overlay  MEDMOD  proceeds  in  the  following  manner:  First, 
MEDMOD  initializes  selected  parameters  (working  variables) 
and  records  input  values  of  selected  resources  for  later  use. 
Next,  MEDMOD  calls  Subroutine  PRTSUM  to  write  one  line  of 
results  onto  the  output  file  TAPE10  .  Since  no  combat  has 
taken  place  yet,  these  results  give  some  initial  values  of 
the  simulation.  Next,  MEDMOD  calls  Subroutine  DDAY,  provided 
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that  the  task  force  is  not  in  Region  0.  Subroutine  DDAY  sim¬ 
ulates  the  D-day  shoot-out  between  the  task  force  ships  and 
Red  tattletale  ships  and  submarines  in  the  same  region.  MEDMOD 
then  calls  Subroutine  PRTSUM  again  to  write  a  line  of  results 
which  summarize  the  D-day  combat.  (If  the  task  force  is 
initially  in  Region  0,  then  these  first  two  lines  of  summary 
results  will  be  identical. )  If  the  task  force  contains  one 
or  more  aircraft  carriers  and  if  all  of  its  carriers  have 
suffered  sufficient  damage  in  the  D-day  shoot-out  that  they 
now  are  completely  ineffective  (according  to  rules  based  on 
input  parameters  that  determine  the  effectiveness  of  a  carrier 
as  a  function  of  the  number  of  hits  it  has  received),  then 
the  simulation  stops.  Otherwise,  MEDMOD  proceeds  to  simulate 
combat  for  the  first  time  period. 

Combat  during  the  time  periods  (i.e.,  all  combat  other 
than  the  D-day  shoot-out)  is  simulated  using  a  loop  that 
runs  from  1  to  MAXTP,  where  MAXTP  is  the  input  which  gives 
the  maximum  number  of  time  periods  to  be  simulated  (fewer 
than  MAXTP  time  periods  can  be  simulated,  as  will  be  described 
below) . 

The  first  subroutine  that  can  be  called  in  this  loop 
is  Subroutine  TIMET.  This  subroutine  is  called  if  and  only 
if  inputs  are  to  be  changed  at  this  time  in  the  simulation. 
TIMET  can  automatically  increment  any  resources  by  any 
amount  and  can  automatically  replace  the  current  value  of  any 
parameter  with  any  new  value.  These  incremental  amounts  and 
new  replacement  values  must  be  input  to  MEDMOD  as  described 
in  Appendix  A.  Table  B-4  (of  Appendix  B)  gives  a  complete 
list  of  those  inputs  to  MEDMOD  which  are  classified  as  resource 
inputs,  and  so  any  change  to  any  of  these  inputs  is  an  incre¬ 
mental  change.  Changes  to  any  input  to  MEDMOD  other  than 
those  listed  on  Table  B-4  results  in  a  replacement  by  the  new 
value,  not  an  increment. 
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The  next  six  subroutines  that  can  be  called  by  Overlay 
MEDMOD  are:  Subroutines  GNAATK,  PLBAB,  SUBSUB,  CTPMOD,  SHPSHP, 
and  POWERP.  These  six  subroutines  are  called  here  if  and  only 
if  the  task  force  is  not  in  Region  0.  Subroutine  GNAATK  can 
generate  a  Red  air  attack  on  the  task  force.  Subroutine 
PLBAB  simulates  the  attempt  by  the  Red  air  attack  (if  there 
is  one)  to  penetrate  the  Blue  land-based  air  barrier  (if  there 
is  one).  Subroutine  SUBSUB  simulates  combat  between  Blue  sub¬ 
marines  in  direct  support  of  the  task  force  and  Red  submarines 
and  surface  ships  in  the  same  location  as  the  task  force. 
Subroutine  CTFMOD  simulates  the  Red  air  and  submarine  attack 
on  the  task  force;  it  calculates  the  amount  of  warning  to 
the  task  force  and  simulates  combat  between  all  Blue  sea-based 
resources  and  all  Red  resources  in  this  attack.  Subroutine 
SHPSHP  simulates  combat  between  the  task  force  and  Red  surface 
ships  in  the  same  region  as  the  task  force.  Subroutine  POWERP 
calculates  the  number  of  power  projection  sorties  that  can 
be  flown  by  carrier-based  aircraft  during  the  time  period,  it 
simulates  combat  between  these  aircraft  and  Red  SAMs  protect¬ 
ing  against  Blue  power  projection,  and  it  calculates  the 
number  of  successful  Blue  power  projection  sorties  flown  by 
type  of  Blue  aircraft. 

Subroutine  ADDMOE  is  the  next  subroutine  called  by  Over¬ 
lay  MEDMOD.  (ADDMOE  and  the  remainder  of  the  subroutines 
listed  here  are  called  whether  or  not  the  task  force  is  in 
Region  0.)  ADDMOE  determines  whether  to  stop  the  simulation 
based  on  the  effectiveness  of  the  task  force.  If  the  task 
force  has  one  or  more  aircraft  carriers,  then  the  simulation 
is  terminated  if  the  carriers  have  essentially  no  effective¬ 
ness.  (Specifically,  the  simulation  is  terminated  if  the 
input  number  of  carriers,  XPLAT,  is  greater  than  zero  and 
the  working  variable  XEFFCM,  which  gives  the  average  effec¬ 
tiveness  of  the  carriers  in  the  task  force,  is  less  than 
0.00005.)  The  simulation  is  also  terminated  if  there  are 
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no  Blue  surface  ships  remaining  in  the  task  force  (which  is 
the  only  way  that  the  task  force  can  lose  all  of  its  effec¬ 
tiveness  if  the  task  force  does  not  contain  any  aircraft 
carriers ) . 

The  next  three  subroutines  that  can  be  called  by  Over¬ 
lay  MEDMOD  are:  Subroutines  MOVTF,  MOVRS,  and  ABATCK .  These 
three  subroutines  are  called  here  if  and  only  if  ADDMOE  has 
determined  that  the  simulation  should  not  be  stopped  based 
on  the  effectiveness  of  the  task  force.  (If  ADDMOE  deter¬ 
mines  that  the  simulation  should  be  stopped  for  this  reason, 
MEDMOD  proceeds  to  call  Subroutines  PRTRES  and  PRTSUM  as 
described  below.)  Subroutine  MOVTP  determines  whether  the 
task  force  is  to  be  moved  to  a  new  region  and,  if  so,  it 
makes  this  move  and  simulates  combat  that  occurs  between  the 
task  force  and  the  appropriate  Red  submarine  barrier  (if 
there  is  one).  Subroutine  MOVRS  determines  the  number  of 
Red  ships  and  submarines  in  each  region  that  are  to  be  moved 
to  another  region,  it  makes  these  moves,  and  it  simulates 
combat  between  these  Red  resources  and  the  appropriate  Blue 
submarine  barriers.  Subroutine  ABATCK  determines  whether 
Blue  will  make  a  carrier-based  air  attack  on  the  notional 
vulnerable  Red  airbase  (based  on  the  new  location  of  the 
task  force)  and,  if  so,  it  models  this  attack. 

Subroutines  PRTRES  and  PRTSUM  are  called  after  Subroutine 
ADDMOE  if  Subroutines  MOVTF,  MOVRS,  and  ABATCK  are  not 
called,  and  are  called  after  Subroutine  ABATCK  otherwise. 
Subroutine  PRTRES  is  not  currently  coded;  when  it  is  coded, 
this  subroutine  will  print  out  the  current  values  of  all 
resource  variables  in  tabular  form.  Subroutine  PRTSUM  totals 
some  summary  results  and  writes  all  the  summary  results  onto 
an  output  file  (TAPE10). 

If  either  the  stopping  criterion  of  no  residual  effec¬ 
tiveness  in  the  task  force  has  been  met  (ISTOP  =  1)  or  the 
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maximum  number  of  time  periods  to  be  simulated  now  has  been 
simulated,  the  main  loop  of  Overlay  MEDMOD  is  exited,  some 
variables  for  output  displays  are  calculated,  the  MEDMOD 
computer  program  is  ended,  and  control  returns  to  the  oper¬ 
ating  system  level  to  print  the  summary  output  table.  Other¬ 
wise,  the  index  of  time  period,  ITP,  is  incremented  by  1  and 
the  next  time  period  starts  (by  calling  Subroutine  TIMET  if 
inputs  are  to  be  changed  at  the  start  of  this  next  time 
period) . 

A  flowchart  of  the  MEDMOD  computer  program  is  given  in  ■ 
Figure  2.  This  flowchart  is  generally  correct  (at  its  level 
of  detail)  but,  for  clarity,  it  omits  a  few  steps  like  the 
initialization  of  selected  parameters,  the  calls  to  PRTSUM  on 
either  side  of  Subroutine  DDAY,  and  the  call  to  the  not  yet 
coded  Subroutine  PRTRES . 

3 .  Some  Assumptions  and  Conventions 

Before  discussing  the  interactions  simulated  in  the  sub¬ 
routines  called  by  Overlay  MEDMOD,  it  is  useful  to  state  some 
simplifying  assumptions  and  conventions  used  in  MEDMOD. 

a .  Attrition 

Most  (but  not  all)  of  the  resources  simulated  in  MEDMOD 
can  be  destroyed  by  enemy  resources.  The  exceptions  to  this 
rule  are:  Blue  aircraft  carriers.  Blue  land  and  carrier-based 
AEW  aircraft,  and  Blue  land  and  carrier-based  ASW  aircraft. 

Instead  of  destroying  Blue  aircraft  carriers,  MEDMOD 
lowers  their  average  effectiveness.  In  particular,  XPLAT  is 
the  input  which  gives  the  initial  number  of  aircraft  carriers 
in  the  task  force,  and  XEFFCM  is  a  working  variable  that  is 
initially  set  equal  to  1.0.  MEDMOD  does  not  (automatically) 
change  XPLAT.  Instead,  if  the  aircraft  carriers  in  the  task 
force  have  suffered  sufficient  damage  that  they  are,  say. 
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Figure  2.  A  GENERAL  FLOWCHART  OF  THE  MEDMOD  COMPUTER  PROGRAM 
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at  80  percent  of  their  initial  effectiveness,  then  XEFFCM 
will  have  been  reduced  to  0.80  in  MEDMOD. 1  This  convention 
is  reasonable  (given  the  small  number  of  carriers  and  the 
deterministic  nature  of  MEDMOD),  and  is  consistent  with  the 
R-245  model. 

Attrition  to  AEW  and  ASW  aircraft  in  the  air  (caused, 
perhaps,  by  Red  fighters)  is  not  simulated  in  MEDMOD  because 
this  interaction  is  not  believed  to  be  a  significant  aspect  of 
the  overall  combat  being  modeled.  No  Red  attacks  on  Blue 
land  bases  are  simulated,  and  so  attrition  to  land-based  AEW 
and  ASW  aircraft  on  the  ground  is  not  modeled.  Attrition 
to  carrier-based  AEW  and  ASW  aircraft  on  the  carriers  is 
also  not  simulated,  but  unlike  the  other  interactions  dis¬ 
cussed  above,  this  attrition  will  be  simulated  in  MEDMOD  in 
the  near  future.  However,  it  should  be  noted  that,  as  the 
effectiveness  of  the  carrier  (measured  by  XEFFCM)  decreases, 
the  number  of  sorties  that  can  be  flown  by  carrier-based  ASW 
aircraft  decreases.  Thus,  attacks  on  the  carrier  degrade 
ASW  capability  only  (as  the  program  stands  now)  by  degrading 
the  carrier's  capability  to  launch  ASW  sorties,  not  (yet) 
by  directly  killing  ASW  aircraft  on  the  carrier.  (Carrier- 
based  AEW  aircraft  have  a  constant  sortie  rate  as  the  program 
stands  now — in  the  near  future  this  will  also  be  changed.) 

In  summary,  the  number  of  carriers,  XPLAT,  is  constant 
in  MEDMOD,  but  the  average  relative  effectiveness  of  these 
carriers,  XEFFCM,  is  degraded  as  the  carriers  suffer  damage. 
The  numbers  of  land-based  AEW  aircraft  associated  with  each 
region  L,  XAEW(L),  and  the  number  of  carrier-based  AEW  air¬ 
craft,  XAEW,  are  constant  in  MEDMOD  and  their  sortie  rates 
are  not  degraded;  however,  attrition  to  fighter  aircraft  and 

xFor  example,  the  number  of  Blue  attack  aircraft  available  to  attack  Red 
airbases  during  any  time  period  either  is  the  number  of  attack  aircraft 
"alive"  on  the  carrier  or  is  XEFFCM  times  the  initial  number  of  attack 
aircraft  on  the  carriers,  whichever  is  less. 
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reduction  in  their  sortie  rate  due  to  carrier  damage  reflects 
a  loss  in  capability  to  use  this  early  warning.  The  number 
of  land-based  and  carrier-based  ASW  aircraft,  XASWLQ(L)  and 
XASW,  respectively,  are  also  constant  in  MEDMOD .  The  code 
will  be  changed  soon  to  allow  attrition  to  carrier-based  AEW 
and  ASW  aircraft.  Other  than  these  exceptions,  all  resources 
simulated  in  MEDMOD  can  suffer  attrition  due  to  attacks  by 
appropriate  enemy  resources. 

b .  Time  Periods  and  Clock  Time  Periods 

Time  periods  in  MEDMOD  correspond  to  one  cycle  through 
the  main  loop  in  Overlay  MEDMOD.  Thus,  after  TIMET,  the  first 
calculation  made  in  a  time  period  is  to  attempt  to  generate 
a  Red  air  attack  on  the  task  force  (Subroutine  GNAATK ) ,  and 
the  last  interaction  simulated  is  the  Blue  air  attack  of  the 
notional  vulnerable  Red  airbase  (Subroutine  ABATCK) .  MEDMOD 
places  no  formal  restrictions  on  the  length  of  a  time  period. 
(MEDMOD  makes  no  attempt  to  distinguish  daylight  from  night¬ 
time.  )  For  some  purposes,  it  can  be  convenient  to  think  of 
a  time  period  as  being  one  day  long.  If  this  is  done,  the 
day  should  not  be  thought  of  as  starting  with  Subroutine 
GNAATK  the  first  thing  in  the  morning  and  ending  with  Sub¬ 
routine  ABATCK  at  night.  Instead,  the  day  should  be  thought 
of  as  starting  with  Blue  (possibly)  attacking  Red  airbases 
(Subroutine  ABATCK),  then  Red  (possibly)  generating  an  air 
attack  on  the  task  force  (Subroutine  GNAATK),  and  so  on. 

Blue  power  projection  might  be  considered  as  being  flown 
throughout  the  day,  and  forces  could  be  moved  (Subroutines 
MOVTF  and  MOVRS)  overnight.  As  the  next  morning  dawns.  Blue 
could  launch  the  next  day's  attack  (if  there  is  one)  against 
Red  airbases. 

In  order  to  distinguish  a  "day,"  which  runs  from  Sub¬ 
routine  ABATCK  through  the  movement  subroutines,  from  a  cycle. 


27 


which  runs  through  the  loop  in  Overlay  MEDMOD,  the  following 
terminology  will  be  used.  The  period  starting  with  Subroutine 
ABATCK  and  running  through  the  movement  subroutines  will  be 
called  a  "clock  time  period,"  while  the  cycle  through  the 
loop  in  Overlay  MEDMOD  will  (continue  to)  be  called  a  "time 
period."  This  distinction  is  formally  used  in  MEDMOD  only 
in  one  respect:  If  Blue  aircraft  can  only  fly  a  certain 
number  of  sorties  per  day  (or  per  clock  time  period),  then 
the  day  (or  clock  time  period)  in  MEDMOD  starts  at  Subroutine 
ABATCK,  and  ends  (for  sortie  flying  purposes)  with  POWERP — it 
does  not  run  from  GNAATK  to  ABATCK. 

4 .  The  Major  Subroutines  of  MEDMOD 

Overlay  MEDMOD  calls  14  subroutines.  One  of  these.  Sub¬ 
routine  PRTRES ,  has  not  yet  been  coded.  (Subroutine  PRTRES , 
when  coded,  will  only  print  out  current  numbers  of  resources, 
by  type  and  by  location;  it  will  not  perform  any  simulation- 
related  calculations.)  The  remaining  13  subroutines  are 
called  the  major  subroutines  of  MEDMOD.1  These  13  major  sub¬ 
routines  are  the  13  that  appear  in  Figure  2,  namely:  DDAY, 
TIMET,  GNAATK,  PLBAB,  SUBSUB,  CTFMOD,  SHPSHP,  POWERP,  ADDMOE, 
MOVTF ,  MOVRS ,  ABATCK,  and  PRTSUM.  The  order  here  is,  with 
one  exception,  the  order  in  which  these  subroutines  would  be 
called  by  MEDMOD  if  all  were  called  as  soon  as  possible.  The 
one  exception  is  PRTSUM,  which  is  called  before  and  after 
DDAl ,  but  whose  main  use  is  to  assist  in  displaying  results 
at  the  end  of  each  time  period  as  shown  in  Figure  2;  therefore, 
PRTSUM  follows  ABATCK  in  the  order  used  in  this  discussion. 

These  13  major  subroutines  are  described  in  the  next  13 
sections  of  this  chapter  (one  section  for  each  subroutine). 

The  order  of  these  sections  matches  the  ordering  of  the 

1 MEDMOD  contains  several  subroutines  in  addition  to  these  13  major  sub¬ 
routines;  these  other  subroutines  are  called  by  these  13  subroutines 
(or  by  each  other),  not  by  Overlay  MEDMOD. 
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subroutine  stated  just  above.  Each  of  these  sections  (except 
for  the  section  for  TIMET)  contains  a  table  which  lists  inputs 
(parameters  and  resource  variables)  used  in  the  corresponding 
subroutine.1  (Subroutine  TIMET  does  not  use  the  value  of  any- 
input  variable.)  Definitions  of  these  inputs  are  given  in 
Appendix  C.  (All  inputs  to  MEDMOD  are  stored  in  blank  COMMON.) 

In  addition  to  listing  the  inputs,  each  of  these  tables  also 
lists  the  major  indexing  variables  used  in  the  corresponding 
subroutine,  and  these  indexing  variables  are  defined  and  dis¬ 
cussed  in  Table  B-6  of  Appendix  B.  Finally,  each  section  lists 
the  variables  stored  in  labeled  COMMON  blocks  that  are  used 
by  the  corresponding  subroutine.  Definitions  of  these  (nec¬ 
essarily  working)  variables  are  given  in  Table  B-3  of  Appendix 
B.  Thus,  Tables  B-3  and  B-6  of  Appendix  B  and  all  of  Appendix 
C  may  be  quite  useful  when  reading  the  following  sections. 
Appendix  E  contains  a  copy  of  the  MEDMOD  code,  which  can  be  con¬ 
sulted  for  specific  details  concerning  these  13  major  subroutines 
(or  concerning  any  portion  of  the  MEDMOD  computer  program). 

Each  major  subroutine  (except  for  TIMET)  prints  out 
selected  results  of  its  simulation  and  calculations  each  time 
it  is  called.  Thus,  the  output  of  a  MEDMOD  run  currently  con¬ 
sists  of  the  following  displays.  First,  INP  prints  out  the 
inputs;  a  sample  output  of  INP  is  given  in  Appendix  C.  Next, 
except  for  TIMET,  each  of  the  major  subroutines  described  below 
(and  some  of  the  subroutines  called  by  these  major  subroutines) 
prints  out  its  results  whenever  it  is  called.  This  output,  in 
total,  is  called  the  "detailed  output"  of  MEDMOD,  and  a  sample 
detailed  output  is  given  in  Appendix  D.  (Accordingly,  a  brief 
referral  to  Appendix  D  can  also  be  useful  when  reading  the 
following  sections.)  Finally,  the  summary  results  are  printed — 
a  sample  of  this  summary  is  given  at  the  end  of  Appendix  D. 


1These  tables  list  all  inputs  used,  except  those  that  are  index  limits. 
See  Table  B-7  for  information  on  these  input  limits.  Definitions  of 
resource  inputs  are  also  given  in  Table  B-4. 
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B.  SUBROUTINE  DDAY 

Subroutine  DDAY  models  the  D-day  shoot-out.  It  is  called 
once,  at  the  beginning  of  the  simulation,  and  then  only  if 
the  task  force  is  not  initially  in  Region  0.  It  computes 
attrition  to  Blue  surface  ships  in  the  task  force,  to  air¬ 
craft  on  carriers  in  the  task  force,  and  to  Red  surface  ships 
and  submarines  that  are  in  the  same  region  as  the  task  force. 

Table  1  lists  inputs  used  in  Subroutine  DDAY(L). 

Table  1.  Inputs  and  Major  Indexing  Variables  Used  in 

Subroutine  DDAY(L) 


INPUT  PARAMETERS  USED  IN  SUBROUTINE  DDAY 
ODFAC(KRS)  DDSPA(KRS) 

DDPKC(KRS)  *ENACDS(KRS) 


DDPKS  (KRS  ) 

D  D  R  K  A  A ( KRS  ) 
D  D  R  K  B  A  (  K  R  $  ) 
DORSA (KRS) 


*ENACDT(NKRBP1) 

IDDAC 

IDDAS 


-THIS  VARIABLE  IS  ALSO  USED 


IN  ANOTHER  SUBROUTINE 


RESOURCE  VARIABLES  USED  IN  SUBROUTINE  DR>AY 


X  P  L  A  T  (  W  X  E  r  F  C  N  ) 

X  E  A  A  x 

XEASxA 

XEASWN 

XURGS 


XATTCX 
X  p  G  H  T  P 
R  S  ( 1 ,  L  ) 

R  S  (  2  ,  L  ) 

R  S  (  X  R  S  .  L  )  >  K  R  S  >  3 


INDEXING  VARIABLES  USED  IN  SUBROUTINE  DnAY 
KRS  ' 

L 

( N  K  R  E  P 1  ) 


ihe  subroutine  parameter  L  is  the  initial  location  of  the 
task  force,  which  is  given  by  the  input  LTPMP(l).  (See  the 
description  of  Subroutine  MOVTF  for  further  discussion  of 
LTFMP . )  Subroutine  DDAY  makes  use  of  the  following  variables 
stored  in  labeled  COMMON  blocks: 
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V  a  r  i  a  b  1  e 


COMMON  Block 


ATT  CKI 
FGHTRI 
XEFFCM 


COMCTF 

COMCTF 

COMCTF 


The  central  interaction  in  DDAY  is  an  attack  by  Red  ships 
on  the  task  force.  The  carriers  can  have  different  vulner¬ 
ability  than  the  other  Blue  surface  ships  in  this  attack,  but 
all  Blue  non-carrier  ships  are  assumed  to  be  equally  vulnerable 
as  targets.  (Blue  direct  support  submarines  are  assumed  not 
to  be  involved  in  D-day  combat.) 

Initially  there  are  RS(KRS,L)  Red  ships  of  kind  KRS  in 
the  region.  (KRS  varies  from  1  through  NKRS.)  The  input 
DDRKBA(KRS)  gives  the  numb e r  (not  the  fraction)  of  these  that 
are  killed  before  the  attack  on  the  task  force.  (Throughout 
this  subroutine,  checks  are  employed  to  ensure  that  no  resource 
variable  drops  below  zero.)  The  number  of  Red  ships  of  type 
KRS  that  attack  the  task  force  on  D-day  is  given  by  the  min¬ 
imum  of  the  number  of  Red-type  KRS  ships  that  remain  and  the 
input  DDRSA(KRS).  Of  these  attacking  Red  ships,  an  input 
fraction  (given  by  DDFAC(KRS))  attack  carriers;  the  rest 
attack  other  Blue  surface  ships.  A  Red  ship  of  kind  KRS  fires 
an  input  number,  DDSPA(KRS),  of  shots.  These  shots  need  not 
all  be  fired  at  the  same  target. 

There  are  two  different  methods  available  to  calculate 
attrition  to  Blue.  Method  1  assumes  that  Red  shooters  are  inde¬ 
pendent  of  one  another;  the  attrition  equation  is  the  same  as 
that  of  Subroutine  BINOAT,  with  NKRS  kinds  of  shooters  and  one 
kind  of  target.  (See  the  BINOAT  code  and  [6]  for  details.) 
Method  2  assumes  perfect  coordination  between  the  different 
Red  shooters,  so  that  shots  are  distributed  as  evenly  over 
the  targets  as  possible.  In  both  methods,  each  shot  by  a  ship 
of  kind  KRS  aimed  at  a  carrier  has  (input)  probability  of 
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DDPKC(KRS)  of  killing  it;1  a  shot  aimed  at  a  Blue  non-carrier 
surface  ship  has  probability  of  kill  DDPKS(KRS).  The  input 
variables  IDDAC  and  IDDAS  determine  the  method  used  for  com¬ 
puting  attrition  to  carriers  and  attrition  to  other  Blue  sur¬ 
face  ships,  respectively. 

Red  ships  do  not  suffer  attrition  during  the  attack  on 
Blue.  After  the  attack  the  input  number  (not  fraction) 

DDRKAA ( KRS )  of  the  Red  ships  of  kind  KRS  (1  through  NKRS )  are 
killed . 

C.  SUBROUTINE  TIMET 

The  purpose  of  Subroutine  TIMET  has  been  discussed  at 
some  length  above,  and  the  procedure  for  changing  input  values 
using  TIMET  is  discussed  in  Appendix  A— see,  in  particular. 
Section  II. C  of  that  appendix.  This  section  will  supplement 
those  discussions  by  making  three  comments  about  the  specific 
use  of  TIMET  in  MEDMOD  and  one  general  comment  about  incre¬ 
mental  variables  which  apply  to  any  model  that  uses  TIMET. 

The  three  comments  about  the  use  of  TIMET  in  MEDMOD  are 
as  follows.  First,  the  parameter  of  Subroutine  TIMET ( ICYCLE ) , 
namely  ICYCLE,  corresponds  to  the  current  time  period  in 
Overlay  MEDMOD.  Furthermore,  when  TIMET  is  called,  it  is 
called  at  the  start  of  each  time  period.  Thus,  if  a  user  of 
MEDMOD  desires  to  change  the  value  of  an  input  at  the  start 
of  time  period  11,  for  example,  11  should  be  entered  in  columns 
19  and  20  of  the  appropriate  data  card  as  described  in  Sec¬ 
tion  II . C  of  Appendix  A.  (This  relationship  is  different 
than  that  used,  for  example,  in  IDATAM.  IDATAM  calls  TIMET 
at  the  end  of  its  periods;  so  if  a  variable  is  to  have  a 
different  value  in  period  11  than  it  had  in  period  10  in 
IDATAM,  10  (not  11)  should  be  entered  in  columns  19  and  20 

■'■Carriers  are  not  actually  killed.  Their  fighter  and  attack  aircraft  (vari¬ 
ables  XFGHTR  and  XATTCK)  are  killed  and  their  average  effectiveness  (vari¬ 
able  XEFFCM)  is  degraded. 
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of  the  appropriate  IDATAM  data  card. )  TIMET  contains  one 
labeled  COMMON  block,  COMIGO,  and  this  COMMON  block  contains 
one  variable,  IGO.  The  next  time  period  in  which  changes  are 
to  be  made  is  stored  in  IGO,  and  Overlay  MEDMOD  calls  Sub¬ 
routine  TIMET  at  the  start  of  a  time  period  only  if  IGO  indi¬ 
cates  that  changes  are  to  be  made  then  (i.e.,  only  if  the 
index  of  time  period  ITP  equals  IGO). 

Second,  since  TIMET  makes  changes  at  the  beginning  of 
the  loop  in  Overlay  MEDMOD,  entering  01  (or  [b lank] 1 )  in  col¬ 
umns  19  and  20  of  an  input  data  card  would  have  the  same  effect 
as  changing  the  initial  inputs — except  for  inputs  used  in  Sub¬ 
routine  DDAY.  Changes  made  at  the  start  of  time  period  1  to 
those  inputs  used  only  in  Subroutine  DDAY  would  have  no  impact 
on  the  course  of  the  simulation,  and  changes  at  the  start  of 
time  period  1  to  those  inputs  used  both  in  DDAY  and  in  other 
major  subroutines  of  MEDMOD  would  be  applied  after  DDAY  is 
called  but  before  those  other  subroutines  are  called. 

Third,  TIMET  either  increments  the  current  value  of  an 
input  or  it  replaces  the  value  of  an  input.  Each  input  is 
treated  in  only  one  way — either  it  is  always  changed  by  incre¬ 
menting  its  value  or  it  is  always  changed  by  replacing  its 
value.  In  MEDMOD  the  resource  inputs  listed  on  Table  B-4  of 
Appendix  B  are  all  incremental  inputs,  and  these  inputs  are 
the  only  incremental  inputs;  all  other  inputs  to  MEDMOD  are 
replacement  inputs. 

A  general  comment  concerning  TIMET  is  as  follows.  TIMET 
inputs  must  be  grouped  by  cycle  (i.e.,  time  period)  and  these 
groups  must  be  in  ascending  order  by  cycle  number.  The  order¬ 
ing  of  different  inputs  within  the  same  cycle  is  irrelevant. 

If  an  incremental  input  is  incremented  multiple  times  in  the 
same  cycle  then  all  of  these  increments  apply  (in  a  cumulative 
manner),  not  just  the  last  increment.  Of  course,  if  a  replace¬ 
ment  variable  is  given  several  new  values  in  the  same  cycle. 
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then  only  the  last  value  Is  used.  And,  as  described  In  Appen- 

there  are  multiple  init ial  data  cards  for  any  input, 
then  only  the  last  value  is  used. 

Finally,  TIMET  does  not  make  use  of  the  value  of  any 
input— it  only  changes  these  values.  TIMET  references  the 
input  NEPD,  but  it  uses  NEPD  only  to  determine  the  addresses 
of  other  entries  in  blank  COMMON  (i.-e.,  all  other  inputs); 
it  does  not  use  the  value  of  the  (dummy)  input  NEPD. 

D.  SUBROUTINE  GNAATK 

Subroutine  GNAATK  determines  whether  Red  will  launch  an 
air  attack  against  the  task  force  during  the  current  time 

period  and,  if  so,  it  determines  what  the  size  and  composition 
of  this  attack  will  be. 

Table  2  lists  inputs  used  in  Subroutine  GNAATK ( L, ITP ) . 

Table  2.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  GNAATK ( L , I  TP ) 

INPUT  PARAMETERS  USED  IN  SUBROUTINE  GNAATK 
AVAILS ( L 3  I  A B  ) 

AVAILT(L>IABjKR8  ) 

3MTMIN ( L  ) 

IATKRT ( L  ) 

PESCURCE  VARIABLES  USED  IN  SUBROUTINE  GNAATK 
ATA3T(IA3,KRB) 

A  E  SC  A  3  (  I A  3  ) 

INDEXING  VARIABLES  USED  IN  SUBROUTINE  GNAATK 
IAS 
KRB 
L 


The  subroutine  parameter  L  in  the  current  location  of  the  task 
force,  and  the  parameter  ITP  gives  the  current  time  period. 
Subroutine  aNAATK  makes  use  of  the  following  variables  stored 
in  labeled  COMMON  blocks: 
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Variable 


COMMON  Block 


BMR 

ESC 

NTPSLA 


COMGA 

COMGA 

COMGA 


If  the  number  of  time  periods  since  the  last  Red  air 
attack  on  the  task  force  (given  by  NTPSLA)  is  greater  than 
zero  but  less  than  the  input  IATKRT(L) ,  then  no  Red  air  attack 
is  generated,  NTPSLA  is  incremented  by  one,  and  the  subroutine 
ends.  NTPSLA  is  zero  only  if  there  has  not  yet  been  an  air 
attack  on  the  task  force.  Thus,  if  NTPSLA  is  zero  or  is 
greater  than  or  equal  to-  IATKRT(L),  Red  can  attack  (if  enough 
Red  bombers  are  available).  The  number  of  available  bombers 
and  escorts  are  calculated  next.  If  the  total  number  of  avail¬ 
able  bombers  is  less  than  the  input  BMTMIN(L),  there  is  no 
attack.  Otherwise,  there  will  be  an  attack  consisting  of 
BMR(IAB,KRB)  Red  bombers  of  type  KRB  from  Red  airbase  IAB, 
and  ESC ( IAB )  Red  escorts  for  Red  airbase  IAB,  where  IAB  =  1 
denotes  the  notional  vulnerable  Red  airbase,  and  IAB  =  2 
denotes  the  notional  invulnerable  Red  airbase.  If  there  is 
an  attack,  NTPSLA  is  set  to  one. 

After  these  calculations.  Subroutine  GNAATK  prints  out 
the  numbers  of  Red  aircraft  (by  type  and  airbase)  in  the 
attack,  the  numbers  remaining  on  the  airbases,  the  new  value 
of  NTPSLA,  and  it  ends — no  attrition  is  simulated  in  GNAATK. 

E.  SUBROUTINE  PLBAB 

Subroutine  PLBAB  simulates  the  attempt  by  the  Red  air 
attack  generated  in  Subroutine  GNAATK  (if  such  an  attack  was 
generated  there)  to  penetrate  the  Blue  land-based  air  barriers 
(if  the  inputs  state  that  there  is  such  an  air  barrier). 

Table  3  lists  inputs  used  in  Subroutine  PLBAB(L) .  The 
The  subroutine  parameter  L  is  the  current  location  (or  region) 
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Table  3.  Inputs  and  Major  Indexing  Variables  Used  in 

Subroutine  PLBAB(L) 


INPUT  PARAMETERS  USED 
I  ?  L  A  '  A 
I  D  L  A  c  Q 
PLAE&AtKBO) 
PLAECE(KBD) 

d  l jccn 

P  L  C  A  {  L  ) 

PLFDLL (L8>l#K8D) 
PLPAJQ( KRA ) 


I  M  SUBROUTINE  P  L  .3  A  B 
P  L  3  E  D  A  ( '<  A  D  ) 

PLPDD^  ( <\  3  Q  ) 

PLPDED 

PLPKADtKP.  A>K6D) 

p  L  D  R  D  A  (  *  °  D  .  '<  P  A  ) 
PLPKCE (REE) 

PLPKED (KBD ) 


RESOURCE  VARIABLES  USED  IN  SUBROUTINE  PL3A8 
PLBLBD(K3D,L3) 

ATA3T(IAB,KR3) 

AE  SC  A3 (  I A  3  ) 


INDEXING  VARIABLES  USED 
I A  3 
KBD 
KRA 


IN  SUBROUTINE  P L 3  A 3 
KRB 

L 

LB 


of  the  task  force.  Subroutine  PLBAB  makes  use  of  the  follow¬ 
ing  variables  stored  in  labeled  COMMON  blocks: 

Variable  --  COMMON  Block 
BMR  COMGA 

ESC  COMGA 


First,  Subroutine  PLBAB  determines  whether  there  is  a 
Red  air  attack  or  not.  If  not,  the  subroutine  ends;  if  there 
is  one,  it  continues. 

Next,  the  subroutine  determines  the  number  of  Blue  land- 
based  interceptors  of  type  KBD,  D(KBD),  that  form  the  Blue 
land-based  air  barrier.  D(KBD)  is  computed  by 

NLOC 

D(KBD)  =  l  PLBLBD(KBD,LB)  *  PLFDLL ( LB, L, KBD)  , 

LB  =  1 


where  PLBLBD(KBD,LB)  is  the  number  of  Blue  type-KBD  inter¬ 
ceptors  associated  with  Region  LB,  and  PLFDLL ( LB , L , KBD )  is 
the  fraction  of  these  interceptors  that  fly  sorties  to  par¬ 
ticipate  in  the  land-based  air  barrier  given  that  the  task 
force  is  in  Region  L. 

Subroutine  PLBAB  then  calls  Subroutine  AIRAIR  which  simu¬ 
lates  and  computes  attrition  for  the  following  two  interactions 
in  the  following  order: 

1.  Blue  interceptors  versus  Red  escorts. 

2.  Surviving  Blue  interceptors  versus  Red  bombers. 

Most  of  the  input  parameters  starting  with  "PL"  are  detection 
or  kill  probabilities  or  other  parameters  for  these  inter¬ 
actions.  Subroutine  AIRAIR  is  also  called  by  Subroutine  ABATCK, 
as  stated  in  Section  M,  below;  however,  a  description  of  Sub¬ 
routine  AIRAIR  will  not  be  given  in  this  preliminary 
documentation. 

Results  of  the  first  interaction  are:  the  numbers  of 
Red  escorts  and  Blue  interceptors  (by  type)  that  are  alive 
and  continuing  on  their  mission,  the  numbers  of  these  aircraft 
that  are  alive  but  are  unable  to  participate  in  additional 
engagements  (e.g.,  due  to  lack  of  ordnance)  and  so  are  return¬ 
ing  to  their  home  base,  and  the  numbers  of  these  aircraft 
that  are  killed.  The  results  of  the  second  interaction  are: 
the  numbers  of  Red  bombers  (by  type)  that  are  alive  and  con¬ 
tinuing  on  their  mission,  the  numbers  of  these  bombers  that 
are  alive  but  have  jettisoned  their  ordnance  in  this  inter¬ 
action  and  so  are  returning  to  their  home  base,  the  numbers 
of  these  bombers  that  are  killed,  the  numbers  of  Blue  inter¬ 
ceptors  (by  type)  that  are  alive  and  returning  to  their  home 
base,  and  the  numbers  of  these  interceptors  that  are  killed. 
(Note  that  Blue  interceptors  can  be  killed  by  Red  bombers 
in  this  interaction  if  the  inputs  to  MEDMOD  state  that  some 
types  of  Red  bombers  are  carrying  both  air-to-air  and 
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air-to-ground  ordnance  and  that  these  types  of  bombers  can 
return  fire  against  Blue  interceptors  after  jettisoning  their 
air-to-ground  ordnance.  Note  also  that  since  this  interaction 
completes  the  mission  of  these  Blue  interceptors,  all  Blue 
interceptors  that  survive  return  home  here.) 

The  results  of  these  two  interactions  can  depend  on  the 
numbers  and  types  of  aircraft  involved,  but  not  on  which  bases 
these  aircraft  are  stationed.  The  results  applying  to  each 
particular  type  of  aircraft  are  distributed  over  the  aircraft 
of  that  type  from  each  airbase  according  to  the  proportion 
of  aircraft  of  that  type  participating  from  that  airbase.  Of 
course,  if  there  are  no  Blue  interceptors  of  any  type  from 
any  airbase,  then  no  kills  occur  and  all  Red  aircraft  continue 
on  their  mission. 

Subroutine  PLBAB  ends  after  printing  its  results. 

F.  SUBROUTINE  SUBSUB 

Subroutine  SUBSUB  models  two  different  interactions  each 
time  it  is  called.  In  particular,  it  models  Blue  direct- 
support  submarines  versus  Red  submarines  and  it  models  Blue 
direct-support  submarines  versus  Red  surface  ships.  The  first 
interaction  is  intended  to  model  an  advance  screen  of  Blue 
submarines  trying  to  prevent  Red  submarines  from  reaching 
the  task  force,  and  so  SUBSUB  is  called  before  Subroutine 
CTFMOD  in  Overlay  MEDMOD. 

Table  4  lists  inputs  used  in  Subroutine  SUBSUB(L).  The 
subroutine  parameter  L  is  the  current  location  of  the  task 
force.  This  subroutine  does  not  use  any  labeled  COMMON 
blocks . 

The  number  of  Blue  submarines  present  is  BSSNDS.  (Except 
for  barrier  submarines,  all  Blue  submarines  travel  with  the 
task  force.)  There  are  RS(1,L)  Red  torpedo  submarines  and 
RS(2,L)  Red  missile  submarines  in  the  region,  but  only  the 
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input  fraction  SBFRSA(L)  of  them  are  assumed  to  be  able  to 
participate  in  the  interaction.  Furthermore,  only  the  input 
fraction  SBFRSC  of  these  are  assumed  capable  of  shooting  at 
Blue.  The  input  fraction  SBFBCS  of  the  Blue  submarines  are 
assumed  capable  of  shooting  at  Red  submarines.  (The  two  kinds 
of  Red  submarines  are  indistinguishable  in  this  subroutine; 
the  different  kinds  of  Red  surface  ships  are  also  treated  as 
identical.  Participation  and  attrition  are  assessed  propor¬ 
tionately  over  the  kinds  of  Red  ships.  These  simplifying 
assumptions  might  be  changed  in  the  near  future.) 

Table  4.  Inputs  and  Major  Indexing  Variables  Used  in 

Subroutine  SUBSUB(L) 


INPUT  PARAMETERS  USED 
S3F3CF 
S3F3CS 
S  8  F  RF  A ( L ) 

S3FRFC 
S3  F  R  S  A ( L  ) 

SEFRSC 
S  B  ?  9  D  F 


S  6  PROS 
S  3  ?  3  K  F 
S3PBKS 
S3  PFD3 
S  3  P  F  K  3 
S3PSC3 
S3PSK3 


SU3SU3 


RESOURCE  VARIABLES  USED  IN  SUBROUTINE  5U3SU3 
3SSNCS 
R  S  ( 1  >  L  ) 

R  S  (  2  >  L  ) 

»S (KRS, L) >  KPS >3 

ILDExING  VARIABLES  USED  IN  SUBROUTINE  SIBSU3 
•j  o  c 

L 


Attrition  is  computed  by  Subroutine  BINOAT;  the  code 
for  this  subroutine  contains  (in  comment  cards)  a  description 
of  the  attrition  equation  used.  For  more  background  on  this 
attrition  equation  see  IDA  Paper  P-i031  [6]. 

Subroutine  BINOAT  only  computes  attrition  to  targets 
caused  by  shooters.  To  calculate  attrition  to  both  sides. 
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a  "shoot -then-shoot-back"  scheme  is  used  in  SUBSUB.  This  is 
performed  using  the  variables: 

BSA  =  Blue  submarines  present  (i.e.,  BSSNDS), 

BSCS  =  Blue  submarines  capable  of  shooting, 

RSA  =  Red  submarines  present,  and 

RSC  =  Red  submarines  capable  of  shooting. 

First,  BINOAT  is  called  with  BSCS  shooters  and  RSA  targets 
resulting  in  RSK1  targets  killed.  The  surviving 
( RSA-RSK1 ) *SBFRSC  capable  Red  submarines  then  attack  the  BSA 
Blue  submarines,  resulting  in  BSK1  submarines  killed.  The  pro¬ 
cedure  is  then  reversed.  BINOAT  is  called  with  RSC  shooters 
and  BSA  targets;  BSK2  targets  are  killed.  The  surviving 
(BSA-BSK2) *SBFBCS  Blue  submarines  now  attack  RSA  Red  targets, 
killing  RSK2. 

The  overall  Blue  attrition  is  computed  as  the  weighted 
average 


The  overall  Red  submarine  attrition,  RSK,  is  a  weighted  average 
of  RSK1  and  RSK2,  with  the  same  weights  as  above. 

Rationale  that  underlies  "shoot-then-shoot-back"  schemes 
is  discussed  in  [7]  (which  also  appears  as  Chapter  D.I  of 
[8]  )  and  in  [9]  • 

The  surviving  BSA-BSK  Blue  submarines  then  can  attack 
Red  surface  ships.  The  input  fraction  SBFBCF  of  them  are 
assumed  capable  of  engaging  Red  surface  ships.  There  are 
RS(KRS,L)  Red  ships  of  kind  KRS  in  the  region,  where  KRS  runs 
from  three  through  NKRS  and  indexes  the  kinds  of  Red  surface 
ships.1  The  input  fraction  SBFRFA(L)  of  these  Red  ships  are 


1Note  that  the  input  variable  NKRS  must  be  at  least  three,  i.e.,  there  must 
be  at  least  one  kind  of  surface  ship,  even  if  (continued  on  next  page) 


40 


assumed  to  participate  in  the  interaction;  of  these  the  input 
fraction  SBFRFC  are  assumed  capable  of  shooting  at  Blue. 

First,  the  capable  Blue  submarines  shoot  at  the  Red  surface 
ships;  attrition  is  assessed  by  BINOAT.  Then  the  surviving 
capable  Red  surface  ships  shoot  back  at  Blue. 

After  all  the  attrition  has  been  assessed,  relevant 
quantities  are  printed  and  updated  as  appropriate. 

G.  SUBROUTINE  CTFMOD 

This  section  consists  of  two  parts.  The  first  part  will 
describe  Subroutine  CTFMOD  in  a  manner  similar  to  the  descrip¬ 
tion  of  other  major  subroutines  presented  here.  This  descrip¬ 
tion  is  relatively  brief,  and  it  will  be  expanded  or  supple¬ 
mented  in  a  later  ("full"  rather  than  "preliminary")  documen¬ 
tation  of  MEDMOD.  The  second  part  lists  the  major  differences 
between  Subroutine  CTFMOD  and  the  R-245  model.  Thus,  a  reader 
who  is  not  familiar  with  IDA  Report  R-245  [1]  can  skim  or 
omit  the  second  part;  a  reader  who  is  familiar  with  R-245 
should  read  the  second  part  and  might  do  so  before  reading 
the  first  part  below. 

1  .  Description 

Subroutine  CTFMOD  models  several  different  interactions. 

It  simulates  attacks  by  Red  submarines  that  fire  torpedoes 
and  by  Red  submarines  that  fire  antiship  cruise  missiles  (ASMs) 
at  the  task  force.  If  there  is  an  air  attack  on  the  task 
force,  it  models  the  extent  of  early  warning  that  the  task 
force  receives,  it  simulates  combat  involving  carrier-based 
CAP  and  DLI  fighters  versus  Red  bombers  and  Red  escort  air¬ 
craft  for  these  bombers.  It  models  the  area-air-defense  (AAD) 
and  ship-self-defense  (SSD)  capabilities  of  the  ships  in  the 
task  force  to  destroy  bomber-launched  and  submarine-launched 

(cont’d)  there  are  zero  ships  of  that  kind.  If  NKRS  <  3,  the  program  stops. 
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ASMs,  and  it  models  the  effect  on  task  force  ships  of  the 
torpedoes  and  ASMs  that  penetrate  these  defenses. 

Table  5  lists  inputs  used  in  Subroutine  CTPMOD(L) .  The 
subroutine  parameter  L  is  the  current  location  of  the  task 
force.  Subroutine  CTFMOD  makes  use  of  the  following  variables 
stored  in  labeled  COMMON  blocks: 


Variable 

COMMON  Block 

ATS  0  RU 

COMSOR 

ATT  CKI 

COMCTF 

BMR 

COMGA 

ESC 

COMGA 

FGHTRI 

COMCTF 

FTSORU 

COMSOR 

XCAPST 

COMCTF 

XEFFCM 

COMCTF 

The  first  computation  made  in  Subroutine  CTFMOD  is  to 
determine  whether  there  is  an  air  attack  on  the  task  force 
during  the  time  period  in  question.  If  there  is  no  air  attack 
and  if  Red  submarines  (of  both  types)  will  attack  the  task 
force  only  during  time  periods  in  which  there  is  also  an  air 
attack  (as  determined  by  the  input  IRSUBA(L)),  then  the  sub¬ 
routine  ends;  otherwise,  it  continues. 

Next,  Subroutine  CTFMOD  initializes  certain  working 
variables  to  appropriate  values  based  on  the  current  location 
of  the  task  force,  and  it  prints  out  the  values  of  these  (and 
some  related)  variables.  If  Red  submarines  can  attack  the 
task  force,  then  an  input  fraction,  FSTAQ(L) ,  of  the  torpedo¬ 
firing  submarines  do  so.  If  there  is  no  Red  air  attack  and 
if  ASM  submarines  only  attack  the  task  force  during  time 
periods  when  there  is  also  an  air  attack  (also  as  determined 
by  IRSUBA ( L ) ) ,  then  the  number  of  attacking  ASM  submarines 
is  set  to  zero.  Otherwise,  FSTGAQ(L)  of  the  ASM-firing  sub¬ 
marines  in  the  region  attack  the  task  force. 
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Table  5.  Inputs  and  Major  Indexing  Variables  Used  in 

Subroutine  CTFMOD(L) 

INPUT  PARAMETERS  USED  IN  SUBROUTINE  C  TF  MOD 


AEWD 

HRMASW 

SSDASW 

VC  AP 

AS  WF 

HRMURG 

SSDURG 

VI 

BA  R  E  AQ ( L  ) 

HRTAAW 

STARQ(L) 

WFMAAW 

BARELQd  ) 

HRTASW 

STSALV 

WFMASW 

BARLQ(L) 

HRTURG 

SUBSOR 

WFMPLT 

*BUCAP 

IATRIA 

TABIOT (  I,K ) 

WF  MUR  G 

C  A  PMLQ ( L  ) 

IRSUBA ( L ) 

TAB12 (  I  ) 

W  F  T  A  A  W 

C  A  PM 0 ( L  ) 

PD  I  N 

TAB1.3T  (  I,K  ) 

WFTASW 

CAPMR 

+PFFCNF 

TC  AP 

WFTPLT 

CAPSTCM  L  ) 

PKASW 

THSCAQ(L) 

WFTURG 

DL  IA 

PKATI 

THSCTQ(L) 

WRLNDQ ( L ) 

D 1  T ( I,KRB) 

PKDF1 

TPS 

WVSIZ 

D2T(I>KR8 ) 

PKIIN 

T 1 

ZLAMPF 

*ENACDT (K  ) 

PKIN 

T  2 

ZMPATT (K ) 

ESLR 

PKPLDT (K ) 

T  3 

Z'MPCAP 

E  S  R  Q  (  L  ) 

PKPL1 

T  4 

ZMPDL I 

FPPL1 

PKPL2 

UBAEWL 

Z  M  PE  SC 

FPPL2 

PKSST (K ) 

UBAEW 

ZMPSTG 

FSTAQ ( L  ) 

PRWLNQ ( L ) 

UBASWL 

FSTGAQ ( L  ) 

SMALLR 

UBASW 

HRMAAW 

SSDAAW 

VBT(K) 

*THIS  VARIABLE 

IS  ALSO  USED  IN  ANOTHER  SUBROUTINE 

RESOURCE  VARIABLES 

USED 

IN  SUBROUTINE 

CTFMOD 

X  P  L  A  T ( W /  XEFFCM) 

XURGS 

XAEWLQ (L ) 

RS (2,L  ) 

XEAAW 

XATTCK 

X  A  S  W 

ATABT (  IABf KRB  ) 

XEASWA 

XFGHTR 

XASWLQ (L ) 

AE  SC  AB (  I  A B  ) 

XEASWN 

XAEW 

RS ( 1 »  L  ) 

INDEXING  VARIABLES 

USED 

IN  SUBROUTINE 

CTFMOD 

I 

K 

L 

I A  B 

KR  B 

Next,  the  ASW  portion  of  CTFMOD  is  simulated.  Both 
torpedo  and  ASM  submarines  can  suffer  attrition  due  to 
land-based  and  carrier-based  ASW  aircraft.  After  this  attri¬ 
tion  is  inflicted,  ASM  submarines  fire  their  missiles  and 
return  to  the  open  sea — they  suffer  no  additional  attrition 
in  CTFMOD.  Torpedo  submarines,  however,  must  penetrate 
through  the  air  barrier  imposed  by  aircraft  (helicopters) 
from  the  air-capable  ASW  escorts,  and  then  they  must  penetrate 
through  the  ship  barrier  imposed  by  (both  types  of)  ASW 
escort  ships.  After  penetrating  these  barriers,  each  sur¬ 
viving  torp.edo  submarine  launches  an  input  number,  STSALY, 
of  salvoes  of  torpedoes  (with  TPS  torpedoes  per  salvo)  at 
the  task  force  and  then  returns  (with  no  further  attrition) 
to  the  open  sea.  Subroutine  CTFMOD  uses  the  number  of  Blue 
surface  ships  in  the  task  force  by  type,  and  the  input  param¬ 
eters  WFTAAW,  WFTASW,  WFTPLT,  and  WFTURG ,  to  determine  the 
targeting  of  these  torpedoes  on  the  various  types  of  ships 
in  the  task  force,  and  it  determines  the  average  number  of 
torpedoes,  XSPPLA,  targeted  against  each  carrier.  Subroutine 
CTFMOD  then  uses  XSPPLA,  the  input  array  TAB12 ,  and  the 
function  FUNC12  to  determine  a  factor  (XPST)  which,  when 
applied  to  the  pre-torpedo  attack  average  effectiveness  of 
the  carriers,  gives  the  post-torpedo  attack  average  effec¬ 
tiveness  of  the  carrier. 

If  there  are  no  missile  attacks  on  the  task  force  (due 
either  to  Red  bombers  or  to  Red  submarines),  then  XPST  is 
applied  to  XEFFCM  to  give  a  new  value  for  the  average  relative 
effectiveness  of  the  carriers,  attrition  to  the  other  ships 
in  the  task  force  is  calculated  and  applied,  these  results 
are  printed,  and  the  subroutine  ends.  Otherwise,  if  there 
is  a  missile  attack,  XEFFCM  is  changed  and  attrition  is  applied 
after  the  number  of  penetrating  missiles  has  been  calculated 
as  described  below. 
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The  first  step  in  considering  the  missile  attack  is  to 
determine  the  amount  of  warning  that  land  and  sea-based  AEW 
aircraft  provide,  to  determine  the  total  warning  based  both 
on  AEW  aircraft  and  on  warning  due  to  sensors  on  the  ground 
(whose  effectiveness  is  input  to  MEDMOD  via  the  input  param¬ 
eters  PRWLNQ(L)  and  WRLNDQ(L)),  and  to  determine  the  number 
of  CAP  stations  that  can  be  supported  considering,  in  part, 
the  current  number  of  fighter  aircraft  on  the  carriers  and 
the  current  level  of  effectiveness  of  the  aircraft  carriers. 

Next,  CTFMOD  enters  a  loop  over  certain  attrition  cal¬ 
culations.  In  particular,  this  loop  consists  of  two  parts. 

The  first  part  calculates  attrition  to  Red  bombers  (by  type), 
Red  escorts.  Blue  CAP  fighters,  and  Blue  DLI  fighters.  The 
second  part  calculates  attrition  to  ASMs  launched  from  sur¬ 
viving  Red  bombers  caused  by  ship-based  defenses  (i.e.,  by 
AAD  and  SSD  systems)  and  it  calculates  the  loss  of  carrier 
capability  and  the  attrition  to  other  Blue  surface  ships  due 
to  penetrating  ASMs. 

The  reason  for  a  loop  here  is  as  follows.  The  first 
pass  through  this  loop  calculates  attrition  to  the  aircraft 
involved  that  occurs  before  the  Red  bombers  can  launch  their 
ASMs  against  the  task,  force.  The  only  result  used  from  this 
calculation  is  the  number  of  Red  bombers  (by  type)  killed 
before  they  launch  their  ASMs — attrition  to  the  other  air¬ 
craft  is  ignored  in  this  first  pass.  This  number  of  Red 
bombers  killed  by  type  is  subtracted  from  the  corresponding 
number  of  Red  bombers  entering  the  engagement  to  determine  the 
number  that  launch  ASMs,  which  is  used  in  the  second  part  of 
the  first  pass  through  the  loop.1  The  second  pass  through 
this  loop  calculates  total  attrition  (both  before  and  after 
ASM  launch)  to  all  aircraft  (i.e.,  to  Red  bombers  and  escorts. 


1 Different  types  of  Red  bombers  can  launch  different  types  of  ASMs,  but  all 
Red  bombers  of  the  same  type  must  launch  the  same  (continued  on  next  page) 
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and  to  Blue  CAP  and  DLI  fighters).  This  total  attrition  is 
assessed  against  the  prebattle  numbers  of  these  aircraft — no 
attrition  results  are  ignored  in  this  second  pass  through  this 
part  of  the  loop.  However,  the  second  pass  skips  entirely  the 
second  part  of  the  loop — there  is  no  reason  to  repeat  these 
calculations  since  the  results  of  the  ASM  versus  task  force 
battle  have  already  been  computed  in  the  first  pass.  Of  course, 
procedures  other  than  this  double  loop  could  have  been  used 
here;  this  particular  procedure  was  selected  to  reduce  the 
changes  required  to  an  already  programmed  model. 

The  only  difference  between  the  first  pass  and  the  second 
pass  through  the  first  part  (i.e.,  the  air-to-air  battle)  of 
this  loop  is  that  the  first  pass  uses  the  inputs  D1T(I,K)  and 
D2T(I,K)  for  1=1,  while  the  second  pass  uses  these  inputs  for 
1=2.  (K  denotes  the  type  of  Red  bomber  here.)  These  inputs 
are  distances  from  the  task  force,  1=1  gives  the  distance  at 
which  bombers  of  type  K  launch  their  ASMs ,  1=2  gives  the  dis¬ 
tance  at  which  these  bombers  turn  around  and  become  invulner¬ 
able.  That  is,  CTFMOD  does  not  explicitly  model  the  process 
of  the  bombers  being  vulnerable  as  they  turn  around  or  when 
they  are  in  a  tail-chase  mode.  Instead,  CTFMOD  requires  that 
each  bomber  (by  type)  must  penetrate  to  a  certain  (input) 
distance  from  the  task  force  which  is,  in  general,  closer 
than  its  ASM  release  range.  It  is  vulnerable  during  this 
additional  penetration,  but  turns  around  and  becomes  invul¬ 
nerable  as  soon  as  it  reaches  this  distance  from  the  task  force. 
This  input  distance  should  be  selected  so  that  the  additional 
vulnerability  it  creates  matches  the  true  additional  vulner¬ 
ability  of  bombers  (by  type)  turning  around  and  flying  away 
from  the  task  force. 


(cont'd)  (perhaps  averaged)  type  of  ASM.  Each  surviving  Red  bomber  of  type 
K  launches  the  input  number  ZMPATT(K)  of  ASMs  of  type  K. 
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Details  concerning  this  air-to-air  portion  of  CTPMOD 
(and  concerning  Subroutine  ATRTIA  which  is  called  in  this 
portion  of  CTPMOD)  will  be  given  in  a  later  version  of  this 
documentation.  (In  the  meantime,  the  computer  code  can  be 
consulted  for  specifics.) 

The  second  part  of  this  loop'  in  CTFMOD  (which  is  exer¬ 
cised  only  during  the  first  pass  through  the  loop)  computes 
the  results  of  the  ASM  versus  task  force  battle.  Kills  of 
ASMs  due  to  AAD  and  SSD  systems  are  extracted,  and  surviving 
ASMs  impact  upon  their  target  ships.  AAD  capability  is  com¬ 
puted  using,  in  part,  the  input  arrays  TAB10T  and  PKSST  and 
the  functions  FUNCT9  and  PUNC10.  The  target  ships  of  the 
ASMs  that  penetrate  the  AAD  defenses  are  calculated  using  the 
inputs  WFMAAW,  WFMASW,  WFMURG,  and  WFMPLT. 

The  average  SSD  capability  of  the  carriers  is  computed 
using,  in  part,  the  inputs  FPPL1,  and  PPPL2 ,  the  working 
variable  XEPFCM,  and  the  function  FUNCT5.  Carriers  can  also 
have  passive  defenses,  and  this  capability  is  computed  using 
the  input  PKPLDT(K) .  CTFMOD  thus  uses  the  number  of  ASMs  that 
penetrate  through  these  SSD  defenses  and  are  targeted  against 
the  carrier,  along  with  the  input  array  TAB13T  and  the  function 
FUNC12,  to  determine  the  degradation  factor  to  apply  to  XEFFCM 
to  give  the  new  relative  average  effectiveness  of  the  carrier 
after  absorbing  the  hits  by  these  ASMs.  This  factor  for 
damage  due  to  ASMs  is  denoted  by  XPSA  in  CTFMOD.  (Remember, 
XPST,  the  factor  for  damage  to  carriers  due  to  torpedoes,  has 
already  been  computed  but  has  not  yet  been  applied. )  The  new 
(post-attack)  value  of  XEFFCM  is  then  computed  as  the  product 
of  the  old  (pre-attack)  value  of  XEFFCM  times  XPSA  times  XPST. 

SSD  defenses  of  the  other  ships  in  the  task  force  are 
computed  using  the  inputs  SSDAAW,  SSDASW,  and  SSDURG .  The 
number  of  ships  destroyed  by  the  ASMs  that  penetrate  these 
defenses  is  determined  using  the  inputs  PMAAW,  PMASW,  PMURG, 
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HRMAAW,  HRMASW,  and  HRMURG .  If  there  is  an  ASM  attack  (so 
that  destruction  due  to  torpedoes  to  these  ships  has  not  yet 
been  computed),  then  the  destruction  due  to  torpedoes  is 
determined  here  using  the  inputs  PTAAW,  PTASW,  PTURG,  HRTAAW, 
HRTASW,  and  HRTURG .  Based  on  these  inputs,  the  number  of 
penetrating  ASMs  and  torpedoes,  the  targeting  of  these  ASMs 
and  torpedoes,  and  on  the  pre-attack  number  of  ships,  the 
number  of  surviving  AAW  escorts,  air-capable  ASW  escorts, 
nonair-capable  ASM  escorts,  and  URG  ships  are  computed  and 
the  (first  pass  of)  the  loop  ends.  (Again,  a  more  detailed 
description  of  the  ASM  versus  task  force  battle  will  be  given 
in  a  later  version  of  this  documentation.  In  the  meantime, 
the  computer  code  can  be  consulted  for  specifics.) 

It  should  be  noted  that  CTFMOD  and  the  R-2^5  model  assume 
that  all  ASMs  and  torpedoes  arrive  at  their  target  ships 
within  a  relatively  short  time  interval.  At  first  this  may 
sound  like  a  Red- favorable  assumption  due  to  possible  satu¬ 
ration  effects.  In  one  sense,  it  could  be  Red-favorable  in 
that  if  submarine-launched  ASMs  arrived  at  a  sufficiently 
different  time  than  bomber-launched  ASMs,  then,  in  reality, 
there  would  be  no  saturation  assisting  ASMs  launched  from 
either  mode  due  to  ASMs  launched  from  the  other  launch  mode. 
However,  in  reality,  if  some  ASMs  arrive  ahead  of  others, 
then  the  ASMs  that  arrived  first  could  damage  the  defenses 
of  the  task  force  which  would  make  it  easier  for  the  ASMs 
that  arrive  later  to  penetrate.  This  interaction  is  not 
simulated  in  CTFMOD  or  in  the  R-245  model — all  arriving  ASMs 
face  the  pre-attack  defenses  of  the  task  force  because  all 
ship  damage  is  assessed  at  the  end  of  the  whole  attack.  Also, 
CTFMOD  and  the  R-245  model  do  not  inhibit  the  task  force  from 
killing  torpedoes  due  to  the  fact  that  ASMs  are  also  attacking 
the  task  force,  nor  do  they  inhibit  the  killing  of  ASMs  due 
to  the  fact  that  torpedoes  are  also  attacking  the  task  force. 
Thus,  these  assumptions  of  near  simultaneous  attack  of  ASMs 


and  torpedoes  here  is  strictly  Blue-favorable  because  all 
ASMs  and  all  torpedoes  face  the  full  pre-attack  defenses  of 
the  task  force  in  these  models. 

The  second  pass  through  the  aforementioned  loop  in  CTPMOD 
computes  the  total  air-to-air  attrition  (as  described  above), 
it  skips  the  ASMs  versus  task  force  calculations  just  described, 
and  proceeds  directly  to  the  last  portion  of  CTFMOD ,  which 
is  to  subtract  the  kills  of  aircraft  from  the  appropriate 
inventories  and  display  appropriate  results.  After  this  is 
done.  Subroutine  CTPMOD  ends. 

2 .  Major  Differences  Between  the  R-245  Model  and 

Subroutine  CTFMOD 

Before  discussing  these  differences,  it  should  be  noted 
that  the  R-245  model  corresponds  directly  to  (and  only  to) 
Subroutine  CTFMOD  in  MEDMOD.  Indeed,  Subroutine  CTPMOD  was 
constructed  by  starting  with  the  computer  code  of  the  R-245 
model  and  then  making  changes  to  this  code — not  by  building 
a  new  subroutine  from  the  "ground  up."  All  the  other  major 
subroutines  of  MEDMOD  simulate  resources  and  interactions  not 
played  in  the  R-245  model.1  The  major  differences  between 
the  R-245  model  and  Subroutine  CTPMOD  of  MEDMOD  are  as  follows: 

First,  the  R-245  model  calculates  and  displays  task 
force  costs.  These  costing  calculations  and  displays  have 
been  deleted  from  Subroutine  CTFMOD. 

Second,  the  R-245  model  allows  land-based  AEW  aircraft 
to  be  armed.  As  explained  in  Section  A. 3- a  above,  this  is 
not  allowed  in  Subroutine  CTFMOD. 

Third,  the  R-245  model  plays  only  one  type  of  Red  bomber 
(in  any  one  run)  and  does  not  play  Red  escort  aircraft. 

1The  post-attack  capability  to  launch  power  projection  sorties,  which  is 
an  output  of  the  R-245  model,  is  calculated  in  Subroutine  POWERP,  not 
Subroutine  CTFMOD — but  this  calculation  is  a  simple  multiplication  based 
on  factors  determined  in  CTFMOD. 
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Subroutine  CTFMOD  plays  Red  escorts  and  multiple  types  of  Red 
bombers . 

Fourth,  the  R-245  model  automatically  determines  the  mix 
of  fighter  and  attack  aircraft  on  the  carriers — this  mix  is 
input  to  MEDMOD  (and  to  CTFMOD) . 

Fifth,  the  R-245  model  only  assesses  attrition  against 
Blue  aircraft  carriers  and  Red  bombers,  and  the  bomber  attri¬ 
tion  considers  only  the  attrition  that  occurs  before  ASMs 
are  launched.  Subroutine  CTFMOD  assesses  attrition  against 
all  Blue  surface  ships,  against  Blue  fighter  and  attack  air¬ 
craft  (both  in  the  air  and  on  the  carriers),  against  Red 
bombers  (both  before  and  after  ASM  launch),  and  against  Red 
escort  aircraft. 

Sixth,  the  method  used  to  determine  targets  for  torpedoes 
and  ASMs  is  more  flexible  in  Subroutine  CTFMOD  than  in  the 
R-245  model. 

Seventh,  the  R-245  model  cannot  automatically  simulate 
more  than  one  attack  on  the  task  force.  MEDMOD  automatically 
simulates  multiple  attacks  by  iterating  through  Subroutine 
CTFMOD,  which  updates  resources  and  uses  effectiveness  param¬ 
eters  that  can  depend  on  the  location  of  the  task  force. 

H.  SUBROUTINE  SHPSHP 

Subroutine  SHPSHP  models  intersurface  ship  warfare.  It 
comprises  two  interactions.  First,  if  carriers  are  present, 
aircraft  from  the  carriers  destroy  Red  surface  ships.  If 
there  are  no  Red  surface  ships  left  after  this,  the  subroutine 
ends.  Otherwise,  a  Blue  surface  ship  versus  Red  surface  ship 
battle  takes  place;  attrition  occurs  on  both  sides. 

Table  6  lists  inputs  used  in  Subroutine  SHPSHP (L, ITP ) . 

The  subroutine  parameter  L  is  the  current  location  (region) 
of  the  task  force,  ITP  is  the  current  time  period,  used  only 
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Table  6.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  SHPSHP(L,ITP) 


INPUT  PAPA METERS  USED 
*  3  U  C  A  P 


IN  S  U  3  0  0  L  T I N  E  ShPSH? 
£SF3AK(KBA,KPS5 ) 


*ENACDS ( KR  S ) 

ISS3R 

ISSR3 

*PAFCNF 

*PFFCNF 

SSBACR(KRSS) 

SSCFA 

*THIS  VARIABLE'  IS 


S  SFRSV(KR$S»L) 

SS  PBDP 
SSP5KR 
SSPRDB 
SSPRK3 
S  S  P  R  K  C 

ALSO  USED  IN  ANOTHER  SUBROUTINE 


P -SOURCE  VARIABLES  USED 
X  P  L  A  T  (  W  /  X  E  F  F  C  M  ) 
XEAAW 
XEASUA 
X  E  A  S  V  'I 


I N  S  U  3 
X  U  P  G  S 
XATTCK 
X  F  G  H  T  R 

?  S  (  X  P.  s 


;iTlN 


30^ 


HP 


INDEXING  VARIABLES  USED  IN  SUBROUTINE  SHPSH P 
KB  A 
KRS 
KR  S  S 
L 


for  output  purposes.  Subroutine  SHPSHP  makes  use  of  the 
following  variables  stored  in  labeled  COMMON  blocks: 


Variable 

COMMON  Block 

Variable 

--  COMMON  Block 

ATS  ORU 

COMSOR 

FTSORU 

COMSOR 

ATTCKI 

COMCTF 

XCAPST 

COMCTF 

FGHTRI 

COMCTF 

XEFFCM 

COMCTF 

All  Blue  surface  ships  participate  in  the  interaction 
but  only  an  input  fraction,  SSFRSV(KRSS,L) ,  of  Red  surface 
ships  of  kind  KRSS  in  the  region  participate — the  rest 
neither  engage  Blue  ships  nor  are  vulnerable  to  them.  Two 
indexing  systems  for  kind  of  surface  Red  ship  are  used.  Red 
ship  kinds  KRS  =  1  and  KRS  =  2  are  submarines,  which  do  not 
participate  in  this  subroutine.  Red  ship  kinds  KRS  =  3 
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through  NKRS  are  Red  surface  ships.  However,  the  notation 
KRSS,  kind  of  Red  surface  ship,  where  KRSS  =  KRS  -  2,  is  also 
used  to  index  Red  surface  ships.  KRSS  varies  from  1  to  NKRSS 
(number  of  kinds  of  Red  surface  ship),  where  NKRSS  =  NKRS  -  2. 
(The  input  variable  NKRS  must  be  at  least  3;  if  it  is  not, 
the  program  stops.)  RSSV(KRSS),  which  equals  RS(KRSS+2,L)  * 
SSFRSV(KRSS,L) ,  is  the  number  of  Red  surface  ships  of  kind 
KRSS  participating  (i.e.,  vulnerable)  in  the  interaction.  (If 
no  Red  surface  ships  participate,  the  subroutine  ends.) 

If  carriers  are  present,  the  numbers  of  Blue  attack  and 
fighter  aircraft  available  are  initially  computed  as 

AA  =  min  (XATTCK,  ATTCKI  *  XEFFCM ) 

FA  =  min  (XFGHTR,  FGHTRI  *  XEFFCM) 

These  numbers  are  then  adjusted  for  the  need  to  staff  CAP 
stations  and  for  sorties  used  up  earlier  in  the  clock  time 
period.  One  fighter  aircraft  is  equivalent  to  SSCFA  of  an 
attack  aircraft  in  antiship  combat  capability  (SSCFA  is  input), 
so  the  weighted  number  of  Blue  aircraft  available  is 
BACA  =  AA  +  SSCFA*FA,  where  AA  and  FA  are  the  initial  values 
just  described. 

A  Red  surface  ship  of  kind  KRSS  can  be  destroyed  by  an 
attack  of  SSBACR(KRSS)  Blue  aircraft  (counting  Blue  aircraft 
that  might  be  killed,  by  Red  shipboard  SAMs,  for  example,  in 
the  process).  SSBACR(KRSS)  is  an  input.  Thus,  the  number  of 
(weighted)  Blue  aircraft  required  to  destroy  all  the  Red  sur¬ 
face  ships  participating  is 

NKRSS 

BACR  =  l  RSSV(KRSS)  *  SSBACR(KRSS)  . 

KRSS=1 

If  BACA  _>  BACR,  then:  (a)  BACR  (weighted)  Blue  aircraft  attack 

the  Red  ships  (with  attack  aircraft  only  if  there  are  enough 
attack  aircraft,  otherwise  fighters  make  up  the  shortfall), 
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(b)  all  Red  surface  ships  participating  are  destroyed,  and  (c) 
the  subroutine  ends  after  assessing  attrition  to  Blue  aircraft 
that  occurs  in  the  course  of  attacking  the  Red  ships.  If 
BACA  <  BACR,  then  attrition  to  the  attacking  BACA  (weighted) 
Blue  aircraft  is  assessed,  and  attrition  to  the  Red  surface 
ships  is  calculated  and  assessed' proportionately — the  fraction 
BACA/BACR  of  each  kind  of  Red  surface  ship  is  killed.  The 
remaining  Red  surface  ships,  denoted  by  RSS(KRSS),  go  on  to 
fight  Blue  surface  ships. 

The  surface  ship  versus  surface  ship  interaction  allows 
for  two  different  attack  protocols  for  each  side,  governed  by 
the  input  variables  ISSBR  and  ISSRB.  These  inputs  have  the 
following  meaning: 

•  If  ISSBR  =  0,  different  Blue  ships  perform  detec¬ 
tions  independently  of  one  another. 

•  If  ISSBR  =  1,  the  task  force,  as  an  integrated 
unit,  detects  or  fails  to  detect  each  Red  ship. 

•  If  ISSRB  =  0,  a  given  Red  ship  detects  Blue  ships 
independently  of  one  another. 

•  If  ISSRB  =  1,  a  given  Red  ship  either  detects  the 
whole  task  force  or  detects  no  Blue  ships  at  all. 

The  meaning  of  the  input  detection  probabilities  SSPBDR  and 
SSPRDB  depends  on  the  values  of  ISSBR  and  ISSRB.  In  any  case, 
each  ship  randomly  chooses  from  the  set  of  targets  it  has 
detected  one  target  to  attack  and  kills  it  with  probability 
SSPBKR  (Blue  against  Red),  SSPRKC  (Red  against  carriers),  or 
SSPRKB  (Red  against  Blue  non-carriers).  These  probabilities 
are  input.  The  rigorous  statement  of  assumptions  and  deri¬ 
vations  of  the  attrition  equations  used  here  will  be  described 
in  a  later  version  of  this  paper. 

Carriers  are  not  killed.  Suppose  the  calculations  indi¬ 
cate  that,  had  the  ship  not  been  a  carrier,  it  would  have  been 
killed  with  probability  p.  Then  the  variable  XPLAT  is  left 
unchanged,  but  the  carrier  effectiveness  XEFPCM  is  updated  by 
the  rule: 
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XEFFCM 


(new) 


XEFFCM^old)  *  (1-p)  . 


Fighter  and  attack  aircraft  on  the  carriers,  XFGHTR  and  XATTCK, 
can  suffer  attrition  due  to  shots  from  the  Red  surface  ships. 
The  input  ENACDS(KRS)  (for  KRS  =  3  through  NKRS)  is  used  to 
compute  this  attrition. 

Quantities  are  then  updated  and  output  as  appropriate. 

I.  SUBROUTINE  POWERP 

Subroutine  POWERP  generates  power  projection  sorties 
for  aircraft  from  carriers  in  the  task  force.  The  targets 
of  these  power  projection  sorties  may  be  defended  by  Red 
SAMs.  If  so,  these  sorties  must  penetrate  the  Red  SAM 
defenses  in  order  to  release  their  ordnance  against  these 
targets.  POWERP  does  not  explicitly  model  the  targets  of 
these  power  projection  sorties;  it  does  model  the  Red  SAMs 
and  the  Blue  aircraft  versus  Red  SAM  interactions,  and  it 
accumulates  successful  power  projection  sorties  flown  as  a 
measure-of-effectiveness  of  the  task  force. 

Table  7  lists  inputs  used  in  Subroutine  POWERP ( L, ITP) . 

The  subroutine  parameter  L  is  the  current  location  (region) 
of  the  task  force,  and  the  subroutine  parameter  ITP  is  the 
current  time  period.  Subroutine  POWERP  makes  use  of  the 
following  variables  stored  in  labeled  COMMON  blocks: 


V  a  r  i  a  b  1  e 


COMMON  Block 


ATSORU 
ATT  CKI 
CWPPAS 
FGHTRI 
FTSORU 
PPSORT 
XCAPST 
XEFFCM 


COMSOR 

COMCTF 

COMOUT 

COMCTF 

COMSOR 

COMOUT 

COMCTF 

COMCTF 


54 


Tab!  e 


7.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  POWERP(L,ITP) 


KB  A) 
KRS) 
L  ) 

L  ) 


RESOURCE  VARIABLES  USED  IN  SUBROUTINE  ROVER P 
PPANMS (KRS  ) 

PPRSAM ( KRS  ) 

X P L A T ( W /  XEFFCM) 

X ATT  C  K 
XFGHTR 

INDEXING  VARIABLES  USED  IN  SUBROUTINE  POWERP 
KB  A 
KRS 
L 


UT 

PARAM 

ETER 

S  USED 

IN  SUB 

R  0 

UTINE 

POWER P 

*BU 

CAP 

PPC  A 

L  ( 

L  ) 

P 

PPKAS 

<K 

RS  ) 

IP 

PAP 

PPFA 

SM 

(  K  8  A  ) 

? 

PPKSA 

(K 

RS, 

IP 

PAW 

PRF ASS 

(  K  3  A  ) 

P 

PPSAS 

(K 

3  A  > 

PP 

AEGS  ( 

K  B  A  ) 

PPFS 

VS 

(KPS) 

P 

PS  C°  R 

(K 

3  A  * 

PP 

AVLS  ( 

KRS> 

L  ) 

P  P  PD 

AS 

(  KB  A  ) 

P 

PTSCS 

(K 

3  S  ) 

PP 

A  V  S  S  ( 

KRS  ) 

PPPD 

SA 

(KRS  ) 

W 

FPPAS 

(K 

3  A  > 

*TH 

IS  VA 

R  I  A  B 

LE  IS 

ALSO  US 

ED 

IN  A 

NOTHER 

SUB 

ROUT  I 

NE 

The  first  calculation  made  in  Subroutine  POWERP  is  to 
calculate  the  number  of  sorties  by  type  of  aircraft  (attack 
aircraft  or  fighter  aircraft)  that  will  be  flown  during  the 
time  period  in  question.  This  calculation  considers  the 
number  of  attack  and  fighter  aircraft  still  alive  on  the 
carriers  (XATTCK  and  XFGHTR,  respectively),  the  relative 
capability  of  the  carriers  to  launch  sorties  (XEFFCM) ,  the 
number  of  fighter  aircraft  that  are  reserved  for  staffing 
CAP  stations  (BUCAP  *  XCAPST),  the  number  of  attack  and 
fighter  aircraft  that  have  already  "used  up"  all  their  sor¬ 
ties  during  the  clock  time  period  (ATSORU  and  FTSORU, 
respectively),  and  the  input  sortie  rates  used  for  flying 
power  projection  missions,  PPSORR(I,L),  where  1=1  denotes 
attack  aircraft,  1=2  denotes  fighter  aircraft,  and  L  is 
the  location  of  the  task  force.  If  there  are  no  power  pro¬ 
jection  sorties  flown  this  time  period,  Subroutine  POWERP 
ends;  otherwise  it  continues. 


55 


Next,  Subroutine  POWERP  calls  Subroutine  ATRTSS  to  com¬ 
pute  attrition  for  the  Blue  power  projection  aircraft  versus 
Red  defending  SAMs  interaction.  (Subroutine  ATRTSS  is  also 
called  by  Subroutine  ABATCK,  as  described  in  Section  M  below, 
to  compute  attrition  for  the  Blue  airbase  attack  aircraft 
versus  defending  Red  SAMs  interaction.)  The  input  fraction 
PPFASS ( I )  of  attacking  Blue  aircraft  of  type  I  (where  I  is 
as  above)  attempt  to  suppress  the. Red  SAMs,  and  so  both  Red 
SAMs  and  Blue  aircraft  can  be  killed  in  this  interaction. 
Outputs  of  Subroutine  ATRTSS  include  the  numbers  of  SAMs 
(by  type)  that  are  alive  and  were  not  suppressed,  that  are 
alive  but  were  suppressed,  and  that  were  killed,  and  the 
numbers  of  attacking  Blue  aircraft  (by  type)  that  are  alive 
and  successfully  completed  their  mission  (by  delivering 
ordnance  on  ground  targets  other  than  SAMs),  that  are  alive 
but  were  forced  (by  the  SAMs)  to  jettison  their  ordnance, 
and  that  were  killed.  Details  concerning  Subroutine  ATRTSS 
will  be  given  in  a  later  version  of  this  documentation. 

Subroutine  POWERP  stores  the  (absolute)  number  of  suc¬ 
cessful  power  projection  sorties  flown  during  the  time  period 
in  the  variable  PPSORT  (where  successful  sorties  do  not  count 
sorties  factored  out  to  do  SAM  suppression  in  support  of  power 
projection).  Subroutine  POWERP  also  accumulates  (in  variable 
CWPPAS )  the  total  weighted  number  of  successful  power  projec¬ 
tion  sorties  flown  so  far;  the  weighting  factor  used  is 
WFPPAS(I,L)  where  I  denotes  the  type  of  Blue  aircraft  as  above 
and  L  is  the  location  of  the  task  force  at  the  time  that  the 
sorties  are  flown.  (That  is,  just  after  Subroutine  POWERP 
completes  its  calculations  for  time  period  ITP,  the  variable 
CWPPAS  contains  the  total  weighted  number  of  successful  power 
projection  sorties  flown  summed  over  all  time  periods  from  1 
to  ITP.)  Values  of  the  variables  PPSORT  and  CWPPAS  are  dis¬ 
played  on  the  summary  results  table. 
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After  updating  PPSORT  and  CWPPAS,  Subroutine  POWERP  prints 
out  its  results  and  ends. 

J.  SUBROUTINE  ADDMOE 

Table  8  lists  inputs  used  in  Subroutine  ADDMOE ( ITP , ISTOP ) . 

Table  8.  Inputs  and  Major  indexing  Variables  Used  in 
Subroutine  ADDMOE ( ITP , I  STOP ) 

INPUT  PARAMETERS  USED  IN  SUBROUTINE  ADDMOE 
(NONE  ) 

RESOURCE  VARIA3LES  USED  IN  SUBROUTINE  ADDMOE 
X  P  L  A  T ( W /  XEFFCM) 

X  E  A  A  V 
X  c  A  S  ^  A 
XE A  SUM 
XURGS 

INDEXING  VARIABLES  USED  IN  i  UB  R  DIJT  I  N  E  A  C  f)  M  C  E 
(NONE ) 

The  subroutine  parameter  ITP  gives  the  current  time  period, 
and  ISTOP  Is  as  described  in  Section  A. 2  above.  Subroutine 
ADDMOE  makes  use  of  the  following  variables  stored  in  labeled 
COMMON  blocks: 

V  a  r i a  b 1 e  --  COMMON  Block 
NTPSIM  --  COMOUT 

XEFFCM  --  COM  CT  F 

Subroutine  ADDMOE  is  quite  short  and,  with  one  excep¬ 
tion  has  been  thoroughly  described  in  Section  A,  above.  The 
one  exception  is  that  the  values  of  the  working  variables 
ISTOP  and  NTPSIM  can  be  changed  in  this  subroutine.  ISTOP, 
which  is  initially  set  to  0,  Is  set  to  1  here  if  the  sim¬ 
ulation  is  to  be  terminated.  NTPSIM,  which  is  Initially 
set  to  0,  Is  set  to  the  number  of , time  periods  simulated  so 
far  if  ISTOP  =  1.  Since  the  simulation  Is  terminated  if 
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ISTOP  =  1,  NTPSIM  gives  the  number  of  time  periods  actually 
simulated  In  a  run  of  MEDMOD.  Since  ISTOP  =  1  If  (and  when) 
the  task  force  loses  all  effectiveness,  NTPSIM  can  be  less 
than  the  Input  MAXTP .  (As  an  aside,  the  name  for  this  sub¬ 
routine  came  from  the  original  Intent  to  "add  up  measures- 
of-effectiveness"  here,  as  well  as  to  determine  whether  to 
stop  the  simulation.  Measures-of-ef fectlveness ,  In  terms 
of  summary  outputs,  are  now  either  calculated  In  relevant 
subroutines  for  results  specific  to  those  subroutines,  or 
are  totaled  in  Subroutine  PRTSUM. ) 

K.  SUBROUTINE  MOVTF 

Subroutine  MOVTF  determines  (via  function  LOCTFF )  whether 
or  not  the  task  force  Is  to  move  during  period  ITP.  If  the 
task  force  (heading  in  either  direction)  must  cross  a  Red- 
controlled  submarine  barrier,  then  MOVTF  computes  attrition 
to  the  ships  (including  direct-support  submarines)  in  the 
task  force,  and  it  computes  counterkills  to  the  Red  barrier 
submarines . 

Table  9  lists  inputs  used  in  Subroutine  MOVTF (LOCTF, ITP ) . 
LOCTF  is  the  location  (region)  of  the  task  force  at  the 
beginning  of  time  period  ITP.  Subroutine  MOVTF  makes  use  of 
the  following  variables  stored  in  labeled  COMMON  blocks: 


Variable 

SCK32 

XEFFCM 


COMMON  Block 

BARSCK 

COMCTF 


Subroutine  MOVTF  calls  function  LOCTFF  ("locate  task 
force  function")  to  determine  the  desired  location  of  the 
task  force  at  the  beginning  of  period  ITP  +  1.  This  location 
is  determined  by  two  input  vectors,  LGTHMP (I )  (length  of 
movement  period  I),  and  LTFMP(I)  (location  of  the  task  force 
during  movement  period  I),  where  I  ranges  from  1  to  the  input 
limit  MIMP,  and  indexes  "movement  period."  The  task  force 
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Table  9.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  M0VTF( LOCTF, ITP) 


INPUT  PARAMETERS  USED  IN  SUBROUTINE  NOV T F 


A  T  T  a  G  T 
3ACCDW ( KBS ) 
3ACPCK (KBS  ) 
*3ARLTH(  I B An  ) 
3ECD\s  (  K  3 S  ) 
CACD'a  0 
C  P  A  G  V 
CP5PK (KBS ) 

C  PR SCK (KBS  ) 

*  TH I S  VARIABLE 
♦THIS  VARIABLE 


w  S  c  D  yi  0 
F  M  3  (  K  B  S  ) 
♦ICTL (ISA* 
+LGTHMP { I ) 
+  L  T  F  V  P  (  I ) 

+  M I  M  P 
R  E  0  W (KBS  ) 
T  P  AS 
WTFCBO 

IS  ALSO  USED  IN 
13  USED  IM  FUNC 


SUBROUTINE  NCVRS 
ION  LOCTF F 


RESOURCE  VARIABLES  USED 
3SSNDS 

X P L A T ( U /  XEFFCN5 

XEAAW 

XEASWA 

INDEXING  VARIABLES  USED 
I 

IBAR 

KBS 


IN  SUBROUTINE  MOVTF 

XEASVN 

XU.RG3 

S3IBAR (  IBAR  ) 


IN  SUBROUTINE  MOVTF 


remains  in  the  region  LTFMP(I)  throughout  movement  period  I. 
Thus,  for  example,  LGTHMP(l)  =  2  and  LGTHMP(2)  =  3  means 
that  movement  period  1  encompasses  time  periods  1  and  2, 
and  movement  period  2  encompasses  time  periods  3,  4,  and  5. 
For  the  last  time  period  in  movement  period  I,  the  task 
force  is  in  Region  LTFMP(I)  at  the  beginning  of  that  time 
period,  but  is  in  Region  LTFMP(I+1)  at  the  end  of  the  time 
period.  (That  is,  MOVTF  is  called  in  the  middle  of  the 
loop  over  time  periods;  therefore,  if  the  task  force  is 
to  change  regions,  it  does  so  during  a  time  period.) 

Subroutine  MOVTF  determines  the  destination  DESTF  of 
the  task  force.  (The  working  variable  DESTF  is  declared 
integer.)  Two  STOP  statements  have  been  put  into  this  sub¬ 
routine  as  checks;  they  occur  if  DESTF  >  NLOC  or  if 
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I  ^  -  LOCTF  |  >_  2.  (That  is,  the  task  force  cannot  move 

more  than  one  region  away  from  its  current  location  during 
a  single  time  period. )  See  Table  B— 10  of  Appendix  B  for 
more  information  on  these  STOPs.  These  stops  can  be  avoided 
by  manipulating  the  input  array  LTFMP . 

If  DESTP  equals  LOCTF  (i.e.,  the  task  force  does  not 
move)  or  there  is  no  barrier  or  a  Blue-controlled  barrier 
between  regions  LOCTP  and  DESTF,  no  updating  of  the  task 
force  ships  is  necessary .  LOCTF  is  updated  appropriately 
and  the  subroutine  ends.  If  there  is  a  Red— controlled  bar¬ 
rier,  attrition  must  be  assessed. 

There  are  three  possible  protocols  that  can  be  used 
when  crossing  a  Red— controlled  barrier.  If  carriers  are 
present,  only  Protocol  3' is  used;  it  is  discussed  below. 
Protocol  2  is  used  if  there  are  Blue  ships  present  with  some 
air  ASW  capability.  It  is  a  two-step  procedure  identical  to 
the  one  described  in  Subroutine  MOVRS,  with  Red  and  Blue 
reversed.  Protocol  1,  used  if  no  Blue  ships  have  air  ASW 
capability,  is  also  identical,  mutatis  mutandis,  to  the  one 
in  MOVRS. 

Protocol  3  is  a  three-step  crossing  procedure.  Instead 
of  crossing  along  the  whole  barrier  length  BARLTH ( IBAR ) ,  the 
task  force  crosses  along  a  front  of  width 

WTFCB  =  min (WTFCBO ,  BARLTH ( IBAR ) )  , 

where  variable  WTFCBO  is  an  input.  (Of  course,  BARLTH( IBAR ) , 
the  physical  length  of  the  barrier  between  Regions  IBAR-1 
and  IBAR,  is  also  an  input. )  Since  the  barrier  submarines 
are  assumed  to  be  evenly  spaced  along  the  total  length  of 
the  barrier,  this  results  in  the  task  force  being  vulnerable 
to  fewer  barrier  submarines. 

The  first  step  of  the  crossing  procedure  is  similar  to 
the  first  step  of  Protocol  2:  ASW  aircraft  from  the  carrier 
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and  escort  ships,  as  appropriate,  attempt  to  kill  barrier 
submarines.  Then  the  Blue  ships  transit.  The  input  fraction 
FM3 ( KBS )  of  the  ships  of  kind  KBS  transit  on  Step  3;  1-FM3(KBS) 
transit  on  Step  2.  See  Table  B-6  of  Appendix  B  for  a  precise 
description  of  variable  KBS.  All  carriers  move  on  Step  3- 
(The  point  here  is  that  barrier  submarines  counterkilled ■ in 
Step  2  cannot  attack  Blue  ships  transiting  in  Step  3- )  In 
both  Steps  2  and  3,  barrier  submarine  counterkills  and  attri¬ 
tion  to  non-carrier  Blue  ships  is  assessed  by  Subroutine 
BARKCK;  the  procedure  is  identical,  mutatis  mutandis,  to  the 
one  described  above  in  Subroutine  MOVRS .  In  Step  3,  Red 
barrier  submarines  attacking  carriers  can  degrade  the  average 
relative  capability,  XEFFCM ,  of  the  carriers. 

After  all  the  attrition  to  Blue  ships  and  Red  barrier 
submarines  has  been  computed,  results  are  output  and  vari¬ 
ables  (including  LOCTF )  are  updated  as  appropriate. 

L.  SUBROUTINE  MOVRS 

Subroutine  MOVRS  moves  Red  ships  (including  submarines) 
from  region  to  region.  In  transit,  some  Red  ships  might 
have  to  cross  some  submarine  barriers  controlled  by  Blue. 

If  this  is  so,  attrition  to  Red  ships,  by  type,  and  counter¬ 
kills  of  the  Blue  barrier  submarines  are  computed. 

Table  10  lists  inputs  used  in  Subroutine  MOVRS (LOCTF , ITP ) . 
(This  subroutine  does  not  use  any  labeled  COMMON  blocks.) 

The  point  of  departure  is  the  matrix  RS(KRS,L0C)  which  rep¬ 
resents  the  number  of  Red  ships  of  kind  (type)  KRS 
( KRS  =1,  ...,  KNRS )  in  Region  LOC  (LOC  =  1,  ...,  NLOC). 

There  are  in  fact  NLOC  +  1  regions,  numbered  0  through  NLOC, 
but  Region  0  is  a  sanctuary  for  Blue  and  thus  never  contains 
Red  ships . ) 

The  current  region,  LOCTF,  of  the  task  force  is  input 
via  the  parameter  list.  Subroutine  MOVTF  has  already  been 
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Table  10.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  MOVRS ( LOCTF , ITP ) 


INPUT  PARAMETERS  UStD  IN  SUBROUTINE  MOVRS 

*ICTL(IBAR> 

♦BARLTHCIBAR)  ?R$K(KR$>LQCjLOCTF1) 

3  E  D  W  ( K  S  $  )  SACCO W(KRS) 

CPBSCK(KRS)  RACPCK(KPS) 

C  PK  (  KRS  )  RECD*(KRS) 

♦THIS  VARIABLE  IS  ALSO  USED  IN  SUBROUTINE  M  G  V  T  F 

RESOURCE  VARIABLES  USED  IN  SUBROUTINE  MOVRS 
BSIBAR(IBAR) 

R S  (  1  i  L f!C  ) 

RS { 2>  LOC  ) 
pS(l<0S.»LCC)>^t,S>2 

INDEXING  VA=?ta?LE?  m  S  E  D  I  m  c  U  ?.  0  Q  U  T I  N  E  vn\/oc 
I  b  A  * 

K  R  S 
ICC 

LCCTF1 


called  in  the  current  time  period,  and  LOCTF  is  the  most 
recent  region  of  the  task  force.  (Thus,  it  is  assumed  that 
Red  knows  this  region.)  Since  LOCTF  can  vary  from  0  through 
NLOC,  the  variable  LOCTF1  =  LOCTF  +  1  is  also  used  here  to 
index  the  task  force  region  (so  that  the  index  LOCTF1  is 
always  strictly  'positive ) . 

The  protocol  for  moving  Red  ships  is  as  follows.  If 
the  task  force  is  in  Region  LOCTF,  then  of  the  RS(KRS,LOC) 

Red  ships  of  kind  KRS  in  Region  LOC,  the  input  fraction 

PRSM(KRS,LOC,LOCTFl)  move  one  region  toward  the  task  force _ 

PRSM  stands  for  "proportion  of  Red  ships  moving."  More  tech¬ 
nically,  ships  in  Region  LOC  move  into  Region  NEWLOC,  where 
NEWLOC  is  given  by 


NEWLOC 


LOC  + 


LOCTF 

LOCTF 


LOC 

LOC 


for  LOC  ji  LOCTF  . 


Of  course,  Red  ships  in  Region  LOCTF  do  not  move,  and  no  Red 
ships  move  into  Region  0. 
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If  there  is  no  submarine  barrier  between  Regions  LOC 
and  NEWLOC,  or  the  barrier  is  Red-controlled,  there  is  no 
attrition.  For  Blue-controlled  barriers,  attrition  is  com¬ 
puted  by  Subroutine  BARKCK,  which  accepts  as  inputs  the 
number  of  ships  attempting  transit  by  kind,  the  number  of 
barrier  submarines,  and  several  effectiveness  parameters, 
and  outputs  the  expected  numbers  of  transiting  ships  killed, 
by  kind,  and  barrier  submarines  counterkilled .  (The  assump¬ 
tions  underlying  the  modeling  of'  combat  in  BARKCK  will  be 
described  thoroughly  in  a  later  version  of  this  documentation.) 

If  the  Red  ships  have  any  air  ASW  capability,  a  two- 
step  process  is  used.  First  ASW  aircraft  from  the  ships 
kill  t.hose  barrier  submarines  they  can  (these  aircraft  are 
not  explicitly  modeled;  their  effectiveness  is  represented 
through  inputs).  Then  the  Red  ships  (including  submarines) 
transit  the  barrier,  and  are  subject  to  attrition  by  the 
remaining  barrier  submarines.  (These;  submarines  can  be 
counterkilled  by  the  Red  ships.)  Of  course,  if  Red  has  no 
air  ASW  capability,  only  the  second  step  takes  place.  Red 
air  ASW  capability  is  determined  by  whether  the  variable 

NKRS 

SP  =  l  RACCDW ( KRS )  *  RACPCK(KRS) 

NRS=1 

is  greater  than  zero  or  not. 

The  barrier  crossing  procedure  is  performed  for  every 
Blue-controlled  barrier.  The  matrix  RS(KRS,LOC)  is  updated 
to  reflect  movement  and  barrier  kills  and  the  results  are 
displayed  in  the  detailed  output  for  the  time  period  in 
question. 

There  can  (optionally)  be  both  a  Blue  submarine  barrier 
and  a  Red  submarine  barrier  between  two  adjacent  regions;  how¬ 
ever,  in  this  case,  no  direct  interactions  between  the  barriers 
are  simulated. 
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M.  SUBROUTINE  ABATCK 

Subroutine  ABATCK  models  attack  of  the  vulnerable  Red 
airbase  by  Blue  fighter  and  attack  aircraft  from  the  car¬ 
riers.  The  Red  airbase  is  defended  by  Red  aircraft  and 
SAMs ;  ABATCK  calculates  the  attrition  to  Blue  aircraft  caused 
by  these  Red  defenses,  attrition  to  the  defenses,  and  fin¬ 
ally,  Red  aircraft  killed  on  the  airbase. 

Table  11  lists  inputs  used  in  Subroutine  ABATCK(L) . 

Table  11.  Inputs  and  Major  Indexing  Variables  Used  in 


Subroutine  ABATCK(L)' 


a  a  a  E  C  A  (  K  s  0  ) 
AAAEDE ( KRD ) 
AAAEED ( KEE ) 

AACA 

AAPAJD( KB  A  ) 
AAPDDA (KRD  ) 
AAPDDE (KRD) 
AAPDED(KBE) 

AA  PK  A D ( KBA , KRD ) 
AAPKD A ( KRD*  KBA ) 
AAPKDE (  K  R  D  >  K  B  E ) 
AAPKED(KEEjKRQ) 
AASRAA ( L  ) 

A  A  S  R  E  D 
A  A  S  R  F  A  (  L  ) 

AASRFE ( L  ) 

A A  SR  I  D 

A8AVLS (KRSAM) 

A8C  AS 

$  TH  I  5  VARIABLE  IS 


A3ESGS(*?A  ) 

A  B  F  A  S  S  (  K  B  A  ) 
A8FSM(K3A) 

A9FVS ( KRSAM ) 

AB  PDA ( KBA  ) 
A3PDS(KRSAM) 
A3PKA(KRSAM) 
A3PKS ( KRS A  V > K3 A ) 
ABPSA(KBA, KRSAM) 
A  3  T  S  C  (  K  R  S  A  M  ) 
A3VGSS  (  K5  SAM.  ) 
AVALED ( L,  I  ATF  ) 
6UC  AP 
FA  AC  A ( L  ) 

=  AC03 (KR A, I ATF ) 

F  F  A  C  A  (  L  ) 

FFACE ( L ) 


I  A  A  E  0 


I  ABAEQ 
I  A  E  A  F 
I  AB  AW 

IKR AS ( KR  A ) 
t-PAFCNF 
PARK 
PASS  (  I  ) 

P  B  D  R  M  I ) 

0  E  DR  S (  I  ) 
P3KRN (  I  ) 

P  B  K  R  S  (  I  ) 

$  P  F  F  C  N  F 
R  A  R  3  A  3  ( ) 
XIA(L) 

X  I  E  (  L  ) 
XNRA8 


FHSK  (  I  ) 
I A  A  D  A 


ALSO  USED  IN  ANOTHER  SUBROUTINE 


RESOURCE  VARIABLES  USED 
X  P  L  A  T ( W /  XEFFCM) 
XATTCK 
XFGHTR 


IN  SUBROUTINE  A  3  A  T  C  K 
ATA3T(IAc>KR3) 

AESC AB (  I A  3 ) 

AINTCT 


SH  E  L 

A  E  A  N  M  { KRSAM ) 
ABRSAM (KRSAM) 


INDEXING 


VARIABLES  USED  IN  SUBROUTINE  ABATCK 


I  AB 
I A  T  F 


KBA 
KB  E 
KR  A 
KR  3 


KRD 

KRSAM 

L 
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Subroutine  ABATCK  makes  use  of  the  following  variables  stored 
in  labeled  COMMON  blocks: 

Variable  --  COMMON  Block 


ATS  ORU 

C0MS0R 

ATTCKI 

COMCTF 

FGHTRI 

COMCTF 

FTSORU 

C0MS0R 

NTPSLA 

COMGA 

XCAPST 

COMCTF 

XEFFCM 

COMCTF 

If  there  are  insufficient  Red  aircraft  to  warrant  an 
attack  by  Blue  (this  is  determined  by  input  variable  RARBAB) 
the  subroutine  ends.  Otherwise,  the  numbers  of  attack  and 
escort  Blue  aircraft  from  the  carrier  are  determined,  taking 
into  account  (input)  allocations  and  the  number  of  fighter 
aircraft  needed  to  staff  CAP  stations.  The  aircraft  are  mul¬ 
tiplied  by  the  appropriate  sortie  rate  (see  Table  12)  to  yield 
the  numbers  of  sorties  flying.  Sortie  rates  are  generally  con¬ 
sidered  as  being  less  than  1.0;  the  interpretation  is  that 
the  number  of  sorties  is  the  number  of  aircraft  actually 
flying.  (However,  the  model  can  handle  sortie  rates  greater 
than  1.0.)  If  there  are  insufficient  Blue  attack  or  escort 
sorties  to  perform  airbase  attack  (the  requirements  are 
given  by  the  inputs  XIA(L)  and  XIE(L),  respectively)  the 
subroutine  ends.  Otherwise,  Subroutine  AIRAIR  is  called, 
which  simulates  and  computes  attritions  for  the  following 
two  interactions,  in  this  order: 

1.  Blue  fighter  aircraft  on  escort  missions  versus 
Red  fighter  and  interceptor  aircraft  on  defense 
missions . 

2.  Blue  attack  and  fighter  aircraft  on  attack  missions 
versus  surviving  Red  fighter  and  interceptor  air¬ 
craft  on  defense  missions. 
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Table  12.  Aircraft /Miss ion  Combinations 
Modeled  in  ABATCK 


Aircraft 

Sortie 

Varlable(s) 

Variable 

Blue  attack  aircraft  performing  airbase  attack 

AA 

SA(1)-AA*AASRAA(L) 

Blue  fighter  aircraft  performing  airbase  attack 

FA 

$A(2)*FA*AA5RFA(l) 

Blue  fighter  aircraft  performing  airbase  attack  escort 

FE 

SE(1 )«FE*AASRFE(L) 

Red  bombers,  by  kind  (KRB-1 . NKRB) 

A( 1 )  through  A(NKRB) 

(n/a ) 

Red  escort  aircraft  (total) 

A(NKRB+1 ) 

(n/a) 

Red  escort  aircraft  performing  defense 

ED 

SD(1 )-ED*AASRED 

Red  Interceptor  aircraft  (all  perform  defense) 

A(NKRA)  and  IDa 
(NKRA-NKRB+2) 

SD(2)-ID*AASRID 

’Variable  ID  Is  declared  real  In  the  program. 


Most  of  the  input  parameters  starting  with  "AA"  are  detection 
or  kill  probabilities  or  other  parameters  for  these 
interactions . 

For  each  aircraft /mission  combination,  one  result  is 
a  certain  number  of  sorties  killed.  For  Blue  aircraft  on 
attack  missions,  a  calculated  number  are  engaged  and  killed, 
a  calculated  number  are  engaged,  are  not  killed,  but  jettison 
their  ordnance  and  return  to  the  carriers,  and  the  rest  con¬ 
tinue  on  their  attack  mission.  Blue  escort  aircraft  and 
Red  defense  aircraft  complete  their  missions  in  these  inter¬ 
actions  and  so  all  sorties  on  these  missions  that  are  not 
killed  fly  home  after  these  Interactions. 

Next,  the  Blue  attack/Red  SAM  interaction  is  simulated 
by  calling  Subroutine  ATRTSS .  NABSAM  kinds  of  Red  SAMs  are 
played;  the  current  dimensioning  of  MEDMOD  restricts  NABSAM 
to  be  either  1'  or  2.  Results  of  ATRTSS  are:  numbers  of 
SAM  fire  control  centers  killed,  by  kind,  actual  missiles 
expended,  by  kind,  and  Blue  attack  and  fighter  aircraft 
killed,  flying  home,  and  continuing  on  to  attack  the  Red 
airbase.  Every  Blue  attack  sortie  that  continues  to  attack 
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aircraft  and  shelters  on  the  airbase  makes  an  input  number, 
given  by  PASS(I),  of  equal-effectiveness  passes  at  these 
targets  (I  =  1  is  for  attack  aircraft,  I  =  2  is  for  fighter 
aircraft  performing  the  attack  mission). 

ihere  are  multiple  kinds  of  Red  aircraft  on  the  ground, 
j.ndexed  by  kind  KRA.  KRA  =  1  through  NKRB  denotes  kinds 
of  Red  bombers,  KRA  =  NKRB  +  1  denotes  Red  fighter  aircraft, 
and  KRA  =  NKRB  +  2  denotes  Red  interceptors.  There  is  an 
input  number,  SHEL,  of  aircraft  shelters.  A  priority  shel¬ 
tering  scheme  is  used:  aircraft  of  kind  KRA  =  1  are  shel¬ 
tered  first,  if  there  are  any  shelters  left,  aircraft  of 
kind  KRA  =  2  are  sheltered,  and  so  forth.  This  is  subject 
to  the  provision  that  a  particular  kind  of  aircraft  can  fit 
into  shelters.  The  input  IKRAS ( KRA )  ("is  this  kind  of  Red 
aircraft  shelterable?" )  determines  this:  if  IKRAS ( KRA )  =  1, 
kind  KRA  aircraft  are  shelterable;  if  IKRAS (KRA)  =  0,  they 
are  not . 

There  are  ATABT(1,KRB)  Red  bombers,  AESCAB(l)  Red 
fighters,  and  AINTCT  interceptors  stationed  on  the  notional 
j.e  Red  airbase.  However,  only  the  input  fraction 
FAC0B(KRA, IATP )  of  Red  aircraft  of  kind  KRA  are  actually  on 
the  airbase  when  the  attack  occurs;  the  other  aircraft  are 
out  flying  missions.  The  fraction  of  aircraft  on  base  can 
depend  on  whether  a  Red  attack  on  the  task  force  is  planned 
later  on  in  the  clock  time  period  (day)  or  not  (IATP  =  1  or  2, 
respectively).  Even  though  only  A (KRA)  *  FACOB( KRA, IATP) 
aircraft  of  kind  KRA  are  on  base,  the  full  amount  of  A (KRA) 
aircraft  are  considered  as  shelterable  (if  IKRAS(KRA)  =  1), 
where  A (KRA)  is  ATABT ( 1, KRB ) ,  AESCAB(l),  or  AINTCT.  This 
consideration  can  result  in  a  "shell  game"  involving  empty 
shelters.  If  IKRAS (KRA)  =  0  for  some  KRA,  then  some  Red 
aircraft  cannot  be  sheltered  and  so  all  of  these  aircraft 
that  are  on  the  ground  when  the  Blue  attack  occurs  will  be 
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in  the  open,  even  though  some  shelters  may  be  empty.  Also, 
if  FACOB (KRA, IATF )  <  1  for  some  values  of  KRA  and  IATF,  then 
some  Red  aircraft  may  be  in  the  open  even  though  some  shel¬ 
ters  are  empty  during  the  Blue  attack.  This  latter  event 
occurs  because  MEDMOD  assumes  that  no  aircraft  can  use 
another  aircraft's  shelter  while  that  other  aircraft  is  out 
flying  a  mission.  Thus,  if  FACOB(KRA, IATF)  <  1,  a  Red  air¬ 
craft  of  type  KRA  may  be  assigned  a  shelter  but  may  be  out 
flying  a  mission  when  the  Blue  attack  occurs,  and  so  its 
shelter  would  be  empty  at  that  time.  If  there  were  not 
enough  shelters  for  each  shelterable  Red  aircraft  to  have 
its  own  shelter,  then  this  would  mean  that  some  shelterable 
Red  aircraft  would  be  in  the  open  even  though  some  shelters 
(which  are  assigned  to  aircraft  that  are  out  flying  missions) 
are  empty . 

The  attrition  to  Red  from  airbase  attack  is  determined  by 
Subroutine  ATRTAB .  The  Red  aircraft  on  the  (notional)  vul¬ 
nerable  airbase  are  assumed  to  be  distributed  over  an  input 
number,  XNRAB,  of  identical  typical  (real)  airbases;  XNRAB 
should  be  chosen  such  that  the  size  of  the  typical  Red  airbase 
matches  the  actual  real  airbases  in  the  group  comprising  the 
notional  vulnerable  Red  airbase.  On  each  typical  base  there 
are  an  input  number  (PARK)  of  parking  areas  for  nonsheltered 
aircraft  (or  for  all  aircraft,  if  IABAEQ  =  3)-  The  variable 
PARK  should  not  be  zero.  There  are  three  choices  of  attrition 
protocol,  indexed  by  IABAEQ  =  1,  2,  or  3-  These  are  described 
in  detail  in  IDA  Paper  P-1111,  [10] .  Also  see  the  ATRTAB  code 

and  the  definition  of  input  variable  IABAEQ.  The  different 
kinds  of  Red  aircraft  have  the  same  vulnerability  to  being 
killed  on  the  ground,  the  only  factor  is  whether  they  are  shel¬ 
tered  or  not.  (The  detection  and  kill  probabilities  are 
PBDRS(I),  PBDRN(I),  PBKRS(I),  and  PBKRN(I),  respectively,  where 
I  denotes  the  type  of  attacking  Blue  aircraft,  as  described 
above.)  A  shelter  that  is  hit  (in  such  a  way  that  an  aircraft 


inside  it  would  be  destroyed)  is  itself  destroyed  with  proba¬ 
bility  PHSK(I). 

Subroutine  ATRTAB  computes  the  number  of  open  aircraft, 
sheltered  aircraft,  and  shelters  killed.  ABATCK  then  deter¬ 
mines  Red  aircraft  killed  by  kind  and  updates  and  outputs 
quantities  as  appropriate. 

N.  SUBROUTINE  PRTSUM 

Subroutine  PRTSUM  totals  some  summary  results  and  writes 
these  and  other  results  (described  below)  onto  an  output 
file  (TAPE10)  for  eventual  printing  on  the  summary  results 
table . 

Table  13  lists  inputs  used  in  Subroutine  PRTSUM ( LC, ITP) . 

Table  13.  Inputs  and  Major  Indexing  Variables  Used  in 
Subroutine  PRTS UM ( L C , IT P ) 

INPUT  PARAMETERS  USED  IN  SUBROUTINE  PRTSUM 
a'FTFL  (L  ) 

RESOURCE  VARIABLES  USED  IN  SUBROUTINE  PRTSUM 

3  S  S  N  C  S  XURGS  RSIBAP (  I3AR ) 

3SI8AR(I3AR)  XA.TTCK  RS(XRS,L),XRS.GE.3 

XPLATU/  X  E  F  ^  C  )  XFGHT°  ATAET(  IA3.KB9  ) 

x-AArt  PL3L3C :-(K5C,L)  AESCAB(IAB) 

*EA$WA  R  S ( 1 »  L  )  AINTCT 

X E  A S  W N  RS ( 2 »  L  ) 

INDEXING  VARIABLES  USED  IN  SUBROUTINE  PRTSUM 
I  A3  KR  3 

IBAR  KPS 

K  3  D  L 

The  calling  argument  LC  denotes  the  current  location  of  the 
task  force  in  this  subroutine,  and  ITP  denotes  the  current 
time  period.  Subroutine  PRTSUM  makes  use  of  the  following 
variables  stored  in  labeled  COMMON  blocks: 
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COMMON  Block 


Van’  able  -  - 


CWPPAS 

C0M0UT 

CWTPTF 

C0M0UT 

PPSORT 

C0M0UT 

XEFFCM 

-  - 

COMCTF 

Subroutine  PRTSUM  calculates  the  following  values  for 
the  summary  results  table.  First  it  calculates  the  current 
number  of  Blue  surface  ships,  excluding  aircraft  carriers. 

That  is,  it  calculates  TBSHPC,  where 

TBSHPC  =  XEAAW  +  XEASWA  +  XEASWN  +  XURGS  . 

The  reason  for  not  including  carriers  here  is  that  the  number 
of  carriers,  XPLAT,  does  not  vary  in  MEDMOD,  and  its  (constant) 
value  is  printed  at  the  top  of  the  summary  results  table. 

Next,  PRTSUM  calculates  the  cumulative  weighted  number 
of  time  periods  that  the  task  force  has  accumulated  through 
the  current  time  period — this  value  is  denoted  by  CWTPTF. 

CWTPTF  is  initially  set  to  zero  in  Overlay  MEDMOD,  and  it 
is  incremented  here  in  one  of  two  ways,  depending  on  whether 
carriers  are  (XPLAT >  0)  or  are  not  (XPLAT  =  0)  part  of  the 
task  force.  If  carriers  are  part  of  the  task  force,  then 
the  old  value  for  CWTPTF  is  updated  in  PRTSUM  by  adding  to 
it  the  term: 

XEFFCM  *  WFTFL(LC)  . 

Thus,  at  the  end  of  time  period  ITP,  CWTPTF  will  have  the 
value 

ITP 

CWTPTF  =  l  XEFFCM ( i )  *  WFTFL ( LC ( i ) ) 

1=1 

where  XEFFCM ( i )  is  the  relative  average  effectiveness  of 
the  aircraft  carriers  in  the  task  force  at  the  end  of  time 
period  i,  LC(i)  is  the  location  of  the  task  force  at  the 
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end  of  time  period  i,  and  WFTFL(LC)  is  an  input  weighting 
factor  on  these  locations.  If  there  are  no  carriers  in  the 
task  force,  then  CWTPTF  is  updated  in  PRTSUM  by  adding  to 
it  the  term: 

TBSHPC  *  WFTFL(LC)  . 

In  this  case,  at  the  end  of  time  period  ITP ,  CWTPTF  will 
have  the  value 

ITP 

CWTPTF  =  l  TBSHPC ( i )  *  WFTFL(LC ( i ) ) 
i=l 

where  TBSHPC(i)  is  the  total  number  of  Blue  ships  in  the 
task  force  (since  there  are  no  carriers)  at  the  end  of  time 
period  i,  and  LC(i)  and  WFTFL(LC)  are  as  described  above. 
(If  there  are  no  carriers  in  the  task  force,  then  XEFFCM 
stays  constant  at  1.0  through  a  run  of  MEDMOD. ) 

Next,  PRTSUM  calculates  the  total  number  of  Blue  land- 
based  interceptors  alive  at  the  end  of  the  time  period, 
TBLBDS,  by 

NKBDPL  NLOC 

TBLBDS  -  l  l  PLBLBD(KBD,L)  . 

KBD=1  L=1 

Then,  PRTSUM  calculates  the  total  number  of  Blue  submarines 
alive  at  the  end  of  the  time  period,  TBSUBS,  by 

NLOC 

TBSUBS  =  BSSNDS  +  £  BSIBAR(L)  . 

L=1 


Then,  PRTSUM  calculates  the  total  number  of  Red  surface 
ships,  submarines,  bombers,  and  escorts  (TRSHIP,  TRSUBS, 
TRBMRS,  and  TRESCS,  respectively)  by 
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NKRS  NLOC 

TRSHIP  =  l  l  RS(KRSS,L)  , 
KRSS=3  L=1 


NLOC 

TRSUBS  =  l  (RS(1,L)  +  RS(2,L)  +  RSIBAR(L) )  , 
L=1 

2  NKRB 

TRBMRS  =  l  l  ATABT ( IAB,  KRB ) ,  and 

IAB=1  KRB=1 

2 

TRESCS  =  l  AESCAB(IAB)  . 

IAB=1 


Finally,  Subroutine  PRTSUM  writes  selected  quantities 
onto  the  output  file  (TAPE10 )  for  eventual  printing  on  the 
summary  output  table.  The  first  row  in  Figure  3  gives  the 
column  headings  of  the  summary  output  table  that  are  written 
by  Overlay  MEDMOD .  The  second  row  of  that  figure  gives  the 
names  of  the  variables  whose  values  are  written  in  each  column 
by  PRTSUM.  A  sample  (computer  produced)  summary  results  table 
is  given  at  the  end  of  Appendix  D. 

After  writing  these  quantities  onto  the  output  table, 
PRTSUM  ends. 

It  should  be  noted  that,  if  there  are  no  carriers  in 
the  task  force,  then  the  only  useful  Blue  results  described 
on  the  summary  results  table  are  CWTPTF  (the  cumulative 
weighted  effectiveness  of  the  task  force),  TBSHPC  (the  total 
number  of  ships  in  the  task  force),  and  TBLBDS  (the  total 
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Variables  Whose  Values  Are  Tabulated  on  the  Summary  Results  Table 


number  of  Blue  land-based  Interceptors).  All  other  Blue 
results  are  carrier  related. 1 

0.  SUMMARY 

Sections  B  through  N  above  (supplemented  by  Appendix  A 
for  TIMET  and  by  Appendices  B  and  C  for  the  other  subroutines) 
are  Intended  to  give  a  reasonably  thorough  description  of 
what  each  major  subroutine  of  MEDMOD  Is  supposed  to  do  and 
3-  general  description  of  how  each  of  these  subroutines  works. 
Indeed ,  four  subroutines  (TIMET,  GNAATK,  ADDMOE,  and  PRTSUM) 
are  fully  documented  here,  and  two  others  (DDAY  and  SUBSUB) 
require  only  that  the  reader  refer  to  the  comments  In  the 
code  for  Subroutine  BINOAT  and  to  [6]  for  appropriate  back¬ 
ground  vSee  also  Section  3  of  [11]  which  summarizes  the  rele¬ 
vant  results  of  [6]  In  a  somewhat  more  comprehensive  setting). 
The  main  overlay,  DRIVER,  and  Overlays  INP  and  MEDMOD  are 
relatively  fully  documented  In  Section  A  and  the  appendices. 
Thus,  only  full  documentation  of  the  seven  subroutines  PLBAB, 
CTFMOD,  SHPSHP ,  POWERP,  MOVTF,  MOVRS,  and  ABATCK  (and  of  the 
subroutines  they  call)  remains  to  be  written. 


^t  should  also  be  noted  that  MEDMOD  does  not  automatically  zero  out  the 
number  of  aircraft  on  carriers  (XFGHTR,  XATTCK,  XAEW,  and  XASW)  when 
there  are  no  carriers  (i.e.,  when  XPLAT  =  0.0).  Thus,  If  a  user  of  METMOD 
chooses  to  input  no  carriers  and  to  input  positive  numbers  of  carrier- 
based  aircraft,  then  these  aircraft  will  be  counted  In  MEDMOD  as  If  they 
were  flying  missions  from  Invisible  and  invulnerable  ships.  It  is  pos¬ 
sible  that  such  an  output  migit  be  useful  In  rare  special  cases.  When 
it  Is  not  useful,  a  user  of  MEDMOD  should  simply  input  no  carrier-based 
aircraft  in  those  runs  in  which  there  are  no  carriers. 
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Chapter  III 
LIMITATIONS 


The  first  section  below  discusses  some  limitations  of 
the  scope  of  MEDMOD.  These  limitations  are  presented  in  a 
logical  order,  not  an  order  of  importance.  The  next  three 
sections  discuss  limitations  of  MEDMOD  given  its  scope.  The 
most  significant  limitations  are  presented  in  the  first  of 
these  three  sections,  intermediate  limitations  are  presented 
in  the  second  of  these  sections,  and  relatively  minor  limi¬ 
tations  are  given  last.  With  one  exception,  the  limitations 
within  each  of  these  last  three  sections  are  listed  roughly 
in  order  of  their  importance.  The  one  exception  is  that  the 
relatively  minor  limitations  in  the  last  section  are  divided 
into  four  functional  subsections.  The  first  of  these  sub¬ 
sections  contains  limitations  primarily  concerned  with  geog¬ 
raphy,  the  second  contains  limitations  primarily  concerned 
with  the  types  of  resources  being  modeled,  the  third  contains 
limitations  primarily  concerned  with  interactions  between 
resources,  and  the  fourth  states  an  output-related  limitation. 

All  limitations  in  scope  apply  both  to  MEDMOD  and  to 
the  forthcoming  improved  version  of  MEDMOD,  called  NAVMOD . 
Limitations  given  scope  that  apply  to  MEDMOD,  but  not  to 
NAVMOD,  will  be  parenthetically  noted.  One  characteristic 
not  listed  below  is  that,  at  the  time  this  documentation  was 
written,  neither  MEDMOD  nor  NAVMOD  had  been  used  in  a  major 
study  or  analysis. 
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A.  LIMITATIONS  IN  SCOP.E 

1.  MEDMOD  does  not  simulate  ground  versus  ground  com¬ 
bat  (i.e..  Blue  ground  forces  versus  Red  ground  forces). 

Thus,  for  example,  the  timeliness  and  impact  of  power  pro¬ 
jection  sorties  cannot  be  measured  in  MEDMOD,  and  the  outcome 
of  a  whole  air/ground/sea  war  cannot  be  used  as  a  measure- 
of-ef fectiveness . 

2.  MEDMOD  does  not  simulate  Blue  land-based  air  attacks 
on  Red's  (land)  airbases  nor  does  it  simulate  Red  land-based 
air  attacks  on  Blue's  (land)  airbases.  (All  combat  inter¬ 
actions  simulated  in  MEDMOD  involve,  in  part,  either  Blue 
ships,  Blue  submarines.  Blue  carrier-based  aircraft.  Red  ships. 

Red  submarines,  or  Red  aircraft  on  the  way  to  attack  Blue 
ships . ) 

3.  Neither  Blue  nor  Red  land-based  close-air  support 
or  air  interdiction  is  simulated.  Thus,  for  example,  MEDMOD 
cannot  address  questions  like:  "Would  Blue  be  better  off 

if  it  had  -ewer  carrier— based  aircraft  to  fly  power  projec¬ 
tion  missions  and  had  more  land-based  aircraft  to  fly  close- 
air  support  or  interdiction  missions  instead,  or  would  Red 
be  better  off  if  it  used  its  aircraft  to  attack  Blue  ground 
forces  instead  of  attacking  the  Blue  task  force?" 

Note  that  MEDMOD  allows  Blue  land-based  aircraft  to  pro¬ 
vide  defense  for  the  task  force,  but  (as  stated  in  limitations 
^  and  3  above)  it  does  not  allow  land-based  aircraft  to  per¬ 
form  the  other  missions  of  carrier-based  aircraft  (such  as 
power  projection  or  attack  of  Red  airbases) .  These  two  limi¬ 
tations  might  not  be  significant  if  land-based  aircraft  can 
defend  the  task  force  only  when  the  task  force  is  in  areas 
in  which  its  aircraft  cannot  perform  either  power  projection 
airbase  attack  missions.  However,  if  there  are  areas  in 
which  land  bases  can  provide  significant  air  defense  for  the 
task  force  and,  at  the  same  time,  aircraft  from  the  task 
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force  can  fly  power  projection  missions  or  can  attack  Red 
airbases  (or  both),  then  these  limitations  could  be  quite 
severe  because,  in  this  case,  an  equal  cost  force  of  land- 
based  aircraft  might  perform  these  missions  much  more  effec¬ 
tively  than  the  carrier-based  aircraft.  (Of  course,  if 
MEDMOD  were  expanded  to  include  Blue  land-based  aircraft  fly¬ 
ing  power  projection  and  airbase  attack  missions,  then  Red 
aircraft  should  also  be  able  to  attack  Blue  land  bases  and, 
perhaps,  to  fly  power  projection  missions  to  mitigate  the 
effect  of  the  power  projection  missions  flown  by  Blue.) 

4.  Protection  of  sea  lines  of  communication  is  not  directly 
simulated  in  MEDMOD. 

5-  Chemical  warfare  is  not  simulated  in  MEDMOD.  (Nuclear 
warfare  can  be  simulated  in  a  manner  consistent  with  MEDMOD ' s 
level  of  aggregation  by  using  suitable  inputs.) 

B.  MAJOR  LIMITATIONS  WITHIN  MEDMOD'S  SCOPE 

1.  MEDMOD  is  a  relatively  highly  aggregated  model  (like 
the  R-245  model  [1]  or  the  model  discussed  in  [2],  as  compared 
to  detailed  models  like  IDACASE  [5],  FLOATS  [12],  or  NADS  [13]). 
The  fact  that  MEDMOD  is  relatively  highly  aggregated  is  a 
characteristic,  not  a  limitation,  of  MEDMOD,  but  this  charac¬ 
teristic  means  that  MEDMOD  has  the  advantages  and  limitations 
pertaining  to  aggregated  models.  One  advantage  is  that  it 
simulates  many  different  interactions  relatively  quickly  (in 
terms  of  computer  running  time),  and  so  it  can  be  used  both 
as  an  integrating  model  to  examine  the  impact  of  combining 
the  effects  of  many  individual  interactions,  and  as  a  para¬ 
metric  model  to  analyze  many  different  cases.  The  corre¬ 
sponding  limitation  is  that  MEDMOD  does  not  simulate  any  par¬ 
ticular  interaction  in  great  detail — each  individual  simu¬ 
lation  is  relatively  simple.  Whether  these  individual 
simulations  are  overly  simplistic  or  not  depends  on  the 
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simulation,  the  inputs,  and  the  intended  use  of  MEDMOD.  Each 
of  these  individual  simulations  could  be  expanded  in  detail, 
but  not  all  such  expansions  necessarily  lead  to  a  net  improve¬ 
ment.  Rather  than  display  a  list  of  various  possible  expan¬ 
sions  for  each  individual  simulation  in  MEDMOD  as  a  list  of 
potential  limitations  of  the  current  program,  we  simply  note 
that  MEDMOD  is  a  highly  aggregated  model. 

2.  In  general,  ordnance  supply  and  consumption  is  not 
simulated  in  MEDMOD.  The  reason  that  this  limitation  is 
relatively  important  is  threefold.  First,  shortages  (even 
local  shortages)  of  ordnance  on  either  side  can  be  quite  sig¬ 
nificant.  Second,  shortages  (especially  local  shortages)  may 
be  likely.  Third,  ordnance  supply  and  consumption  could 
reasonably  be  modeled  at  MEDMOD1 s  (high)  level  of  aggregation. 
Until  this  limitation  is  removed,  mid— run  inputs  using  Sub¬ 
routine  TIMET  can  be  used  to  reduce  the  effectiveness  or 
number  of  resources  due  to  the  consumption  of  ordnance  (and, 
perhaps,  of  other  supplies). 

C.  INTERMEDIATE  LIMITATIONS  WITHIN  MEDMOD'S  SCOPE 

1.  Ship-based  and  submarine-based  cruise  missile  attacks 
on  the  other  side's  ground  forces  and  airbases  are  not  simu¬ 
lated  (for  either  Red  or  Blue)  in  MEDMOD.  (NAVMOD  will  simu¬ 
late  Blue  ship-based  and  submarine-based  cruise  missiles  used 
for  power  projection,  but  not  airbase  attack.) 

2.  Attrition  of  Blue  AEW  aircraft  is  not  simulated,  and 
the  sortie  rate  of  carrier-based  AEW  aircraft  is  unaffected 
by  damage  to  the  carrier.  (NAVMOD  will  simulate  attrition  to 
Blue  AEW  aircraft  while  on  the  carrier,  and  it .will  degrade 
their  sortie  rates  due  to  carrier  damage.  Land-based  AEW  air¬ 
craft  are  invulnerable  to  attack  both  in  MEDMOD  and  in  NAVMOD.) 

3.  Attrition  of  the  jamming  capability  on  either  side 
is  not  simulated  in  MEDMOD.  Indeed,  neither  Red  nor  Blue 


78 


jammers  are  explicitly  simulated  (though  their  impact  can  be 
implicitly  simulated  by  suitably  adjusting  appropriate  inputs). 

4.  Blue  land-based  air  attack  of  Red  surface  ships  is 
not  simulated  in  MEDMOD.  (This  limitation  is  removed  in 
NAVMOD . ) 

5 •  Mines  are  not  simulated  in  MEDMOD. 

6.  Red  battlefield  defense  aircraft  (that  could  protect 
Red  ground  forces  against  Blue  power  projection  missions)  are 
not  simulated  in  MEDMOD.  The  reason  that  this  limitation  is 
not  extremely  significant  is  that,  in  cases  where  the  impact 
of  Red  battlefield  defense  aircraft  could  be  important,  their 
effectiveness  could  be  roughly  represented  by  adding  a  "dummy" 
type  of  Red  SAM,  whose  effectiveness  characteristics  would 
correspond  (as  closely  as  possible)  to  Red  battlefield  defense 
aircraft,  not  to  a  real  type  of  Red  SAM. 

7.  Losses  of  URG  ships  do  not  degrade  task  force  capa¬ 
bility  in  MEDMOD.  (This  limitation  is  partially  removed  in 
NAVMOD. ) 

D.  RELATIVELY  MINOR  LIMITATIONS  WITHIN  MEDMOD'S  SCOPE 
1 .  Limitations  Concerning  Geography 

1.  All  Blue  ships  must  be  in  the  same  Blue  task  force, 
and  so  all  Blue  ships  (and  non-barrier  submarines)  must  be 
in  the  same  geographical  region  at  any  point  in  time.  The 
reason  that  this  limitation  is  not  of  higher  importance  is 
as  follows.  Suppose  there  were  two  sets  of  Blue  ships  in 
two  different  regions,  and  that  (at  least)  one  of  these  sets 
of  ships  contained  no  aircraft  carriers.  Then  MEDMOD  could 
be  run  twice,  once  with  (only)  one  set  of  Blue  ships  and  the 
Red  resources  assigned  (or  likely)  to  attack  that  set  of 
ships,  and  once  with  (only)  the  other  set  of  Blue  ships  and 
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with  the  Red  resources  assigned  (or  likely)  to  attack  that 
other  set  of  ships  (the  two  sets  of  Red  resources  should  be 
mutually  exclusive  here).  If  the  two  sets  of  Blue  ships  were 
to  combine  to  form  one  task  force  (or  if  Red  resources  were 
reallocated)  at  some  time  during  the  simulation,  then  this 
could  be  accomplished  in  MEDMOD  by  adjusting  appropriate 
resource  values  at  the  appropriate  time  using  Subroutine  TIMET. 
This  combining  separate  runs  approach  would  also  be  useful  if 
each  of  the  two  sets  of  Blue  ships  contained  aircraft  carriers 
but,  for  reasons  of  capability,  strategy,  or  scenario,  the 
aircraft  from  (at  least)  one  of  these  sets  of  carriers  are 
not  used  to  attack  Red  airbases.  If  a  scenario  called  for 
two  carrier  task  forces  in  two  different  regions  and  aircraft 
from  both  forces  are  to  attack  Red  airbases,  then  this  limi¬ 
tation  could  be  significant  for  that  scenario. 

2.  No  combat  between  ships  (or  ship-based  resources) 
that  are  in  different  geographical  regions  is  allowed  in 
MEDMOD.  For  example.  Blue  carrier-based  aircraft  cannot 
attack  Red  surface  ships  that  are  not  in  the  same  geographical 
region  as  the  task  force. 

3-  All  Red  SAMs  that  are  defending  against  Blue  power 
projection  are  located  in  one  notional  area;  they  are  not 
directly  associated  with  geographical  regions. 

4.  The  geographical  regions  must  be  numbered  sequentially, 
and  ships  and  submarines  cannot  move  more  than  one  region  per 
time  period.  This  restriction  would  probably  be  relatively 
easy  to  relax  for  any  particular  situation,  but  it  would  be 
tedious  (and  may  be  computer  storage  space  consuming)  to  auto¬ 
matically  allow  all  mathematically  possible  combinations  of 
moves . 

5-  A  problem  can  occur  if  the  task  force  moves  into 
Region  0  (from  Region  1)  and  then  moves  out  of  Region  0  (back 
into  Region  1).  Specifically,  Red  bombers  must  "rest" -for 
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IATKRT(L)  -  1  time  periods  between  attacks  of  the  task  force 
(given  that  the  task  force  is  in  Region  L),  where  IATKRT(L) 
is  input.  As  currently  programmed,  MEDMOD  does  not  count  time 
periods  that  the  task  force  spends  in  Region  0  in  determining 
when  Red  bombers  can  next  reattack  the  task  force.  This  limi¬ 
tation  would  be  quite  easy  to  remove  if  it  were  desirable  to 
model  a  case  in  which  the  task  force  moves  in  and  out  of 
Region  0,  but  since  this  limitation  only  applies  when  the 
task  force  moves  back  and  forth  this  way,  it  may  never  be 
necessary  to  remove  this  limitation. 

2 .  Limitations  Concerning  Resources 

1.  MEDMOD  can  simultaneously  play  multiple  types  of 
some  resources,  but  it  can  only  play  one  type  of  the  fol¬ 
lowing  Blue  resources  (in  any  one  run):  aircraft  carriers, 

AAW  escorts,  air-capable  ASW  escorts,  non-air  capable  ASW 
escorts,  URG  ships,  submarines  in  direct  support  of  the  task 
force,  submarines  in  barriers,  carrier-based  attack  aircraft, 
carrier-based  fighter  aircraft,  carrier-based  AEW  aircraft, 
carrier-based  ASW  aircraft,  land-based  AEW  aircraft,  and 
land-based  ASW  aircraft.  Also,  MEDMOD  can  only  play  one  type 
of  the  following  Red  resources  (in  any  one  run):  non-barrier 
torpedo-firing  submarines,  non-barrier  ASM-firing  submarines, 
submarines  in  barriers,  fighter  aircraft,  interceptor  air¬ 
craft,  and  shelters  for  aircraft.  The  reason  that  this  limi¬ 
tation  is  not  extremely  significant  (recognizing  the  fact 
that,  in  reality,  there  are  multiple  types  of  all  of  these 
resources)  is  related  to  the  level  of  aggregation  of  MEDMOD. 
With  its  relatively  high  level  of  aggregation,  MEDMOD  often 
computes  the  total  capability  of  a  group  of  resources  as  the 
number  of  resources  in  this  group  times  the  capability  of  each 
resource.  For  example,  the  total  AAW  capability  of  the  AAW 
escorts  is  computed  as  the  number  of  AAW  escorts  times  the 
average  AAW  capability  of  each  AAW  escort.  Thus,  MEDMOD  would 
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assess  the  same  total  effectiveness  to  a  defense  consisting 
of  three  high  quality  AAW  escorts  and  three  low  quality  AAW 
escorts  as  it  would  to  a  defense  consisting  of  six  average 
notional  AAW  escorts  (whose  individual  quality  is  an  equal 
average  of  the  high  and  low  quality  escorts).  Therefore, 
assuming  the  vulnerabilities  of  these  escorts  are  about  equal, 
the  level  of  aggregation  of  MEDMOD  is  such  that  multiple  types 
of  AAW  escorts  of  differing  quality  (and,  in  general,  multiple 
types  of  other  resources)  can  be  appropriately  simulated  by 
using  notional  types  of  resources  of  average  quality. 

With  one  exception,  this  limitation  concerning  multiple 
types  of  resources  also  applies  to  NAVMOD .  The  exception  is 
that  NAVMOD  will  allow  all  Blue  surface  ships  to  be  poten¬ 
tially  air-capable  (e.g.,  all  Blue  surface  ships  can  be  cap¬ 
able  of  launching  LAMPS  sorties,  though  with  different  sortie 
rates  depending  on  the  type  of  Blue  ship).  Thus,  in  NAVMOD, 
there  will  be  no  fundamental  distinction  between  air-capable 
ASW  escorts  and  non-air  capable  ASW  escorts.  Accordingly, 
a  user  of  NAVMOD  could  aggregate  all  ASW  escorts  into  one 
notional  type  of  ASW  ship,  which  would  "free  up"  one  type  of 
Blue  ship  for  other  use.  For  example,  all  ASW  escorts  could 
be  lumped  into  one  average  type  of  ASW  escort,  and  the  vari¬ 
ables  used  for  the  other  type  of  ASW  escort  could  be  used  to 
simulate  battleships  or  any  other  type  of  Blue  surface  ship  not 
currently  simulated  in  MEDMOD  or  NAVMOD.  (Some  minor  repro¬ 
gramming  of  NAVMOD  would  be  required  to  allow  the  different 
vulnerability  of  battleships  and  ASW  escorts  to  be  represented, 
but  this  reprogramming  would  be  easy  to  do.) 

2.  Shore  (ground)-to-ship  missiles  are  not  simulated 
in  MEDMOD  for  either  side.  This  limitation  includes  both 
ballistic  missiles  and  cruise  missiles,  and  it  includes  both 
conventionally  tipped  and  nuclear  tipped  missiles.  A  related 
but  relatively  less  important  limitation  is  that  long-range 
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ship-to-ship  (and  submarine-to-ship )  missiles  are  not  simulated 
in  MEDMOD.  In  particular,  this  means  that:  (a)  ships  in  one 
region  cannot  shoot  at  ships  in  other  regions  (as  was  stated 
in  Limitation  2  of  Section  D.l  above),  and  (b)  Red  surface 
ships  are  vulnerable  to  attack  by  Blue  carrier-based  aircraft 
before  the  Red  ship  can  fire  missiles  at  the  Blue  task  force 
and  before  the  Blue  task  force  can  fire  its  ship-based  missiles 
at  the  Red  attacking  ship. 

3.  Red  submarines  in  regions  either  are  either  missile¬ 
firing  submarines  or  torpedo-firing  submarines,  but  not  both. 
Again,  this  limitation  is  relatively  not  important  because, 
for  example,  two  Red  submarines  that  can  fire  half  a  load 

of  missiles,  then  move  in  to  fire  half  a  load  of  torpedoes, 
can  be  modeled  as  one  torpedo-only  submarine  and  one  missile- 
only  submarine.  This  approach  for  modeling  Red  submarines 
that  would  be  used  to  fire  both  torpedoes  and  missiles  is  not 
rigorously  correct,  but  it  may  be  good  enough  at'  MEDMOD1 S  level 
of  aggregation  and  it  would  be  relatively  easy  to  change  if  a 
more  rigorous  approach  were  desired. 

4.  Damage  to  resources  cannot  be  automatically  repaired 
during  a  MEDMOD  simulation.  This  limitation  would  be  easy 

to  remove,  if  desired,  by  adding  code  to  allow  the  repair  of 
resources  during  the  simulation.  However,  it  would  be  diffi¬ 
cult  to  reflect  repair  rates  which  differ  as  a  function  of 
the  real  types  of  resources  which  .are  aggregated  into  the 
notional  types  played  in  MEDMOD.  For  example,  it  would  not 
be  hard  to  allow  AEW  escorts,  on  average,  to  be  repaired  at  a 
different  rate  than  average  ASW  escorts,  but  it  would  be  hard 
to  allow  the  various  real  types  of  AEW  ships  that  make  up  the 
one  notional  type  of  AEW  escort  simulated  in  MEDMOD  to  be 
repaired  at  different  rates.  All  resources  except  carriers 
can  be  "manually"  repaired  in  MEDMOD  using  Subroutine  TIMET 
(and  NAVMOD  will  allow  all  resources  including  carriers  to  be 
repaired  this  way) . 
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5 •  MEDMOD  does  not  simulate  Red  aircraft  carriers  at 
the  same  level  of  detail  as  it  simulates  Blue  aircraft  carriers. 
A  rough  and  implicit  simulation  of  Red  aircraft  carriers  is 
possible  in  MEDMOD,  and  NAVMOD  will  allow  a  much  finer,  but 
still  implicit,  simulation  of  Red  aircraft  carriers. 

6.  The  number  of  Blue  aircraft  carriers,  XPLAT ,  is 
constant  in  MEDMOD.  This  is  not  a  significant  limitation 
since  the  relative  average  effectiveness  of  the  carriers, 

XEFFCM,  is  varied.  However,  in  reality,  a  carrier  might  be 
sufficiently  damaged  that  it  leaves  the  task  force  thereby 
reducing  the  number  of  carriers  (but  increasing  the  average 
effectiveness  of  the  remaining  carriers). 

7-  Red  bombers  must  be  ordered  by  effectiveness  in 
MEDMOD.  .  That  is,  if  multiple  types  of  Red  bombers  are  being 
simulated,  then  Red  bombers  of  type  1  must  be  better  than 
Red  bombers  of  type  2,  and  so  forth,  where  "better"  is  mea¬ 
sured  in  terms  of  velocity  and  penetration  ranges  only.  In 
particular,  the  input  arrays  VB,  D1T ,  and  D2T  must  satisfy: 

VB(K)  >_  VB ( K+l ) 

D1T ( I , K)  >  D1T( I , K+l )  1=1,2 

D2T  ( I ,  K )  >_  D2T  ( I ,  K+l )  1=1,2 

for  all  K  such  that  1 1  K<_  NKRB-1 . 

8.  Armed  AEW  aircraft  are  not  simulated  in  MEDMOD. 

(The  R-245  model  simulates  land-based,  but  not  sea-based, 
armed  AEW  aircraft . ) 

3 .  Limitations  Concerning  Interactions 

1.  The  various  combat  models  (i.e.,  combat  subroutines) 
of  MEDMOD  are  at  various  levels  of  detail.  In  particular. 
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the  most  detailed  combat  model  is  the  model  of  air  and  sub¬ 
marine  attack  on  the  task  force  in  Subroutine  CTFMOD.  For 
example,  CTFMOD  explicitly  distinguishes  between  killing  a 
Red  bomber  and  killing  an  ASM  launched  from  a  Red  bomber, 
and,  in  doing  so,  it  explicitly  represents  the  self-defense 
capabilities  of  Blue  ships  against  Red  missiles.  This  level 
of  detail  is  not  contained  in  other  subroutines  of  MEDMOD. 
Conversely,  the  D-day  interaction  simulated  in  Subroutine 
DDAY  constitutes  the  least  detailed  combat  model  in  MEDMOD. 

The  idea  here  is  that  the  first  few  hours  of  D-day  combat 
can  be  more  appropriately  simulated  "off-line"  by  a  model 
with  details  and  interactions  specifically  suited  to  D-day 
combat.  The  results  of  such  a  model  could  then  be  fed  into 
the  aggregated  model  of  Subroutine  D-Day.  The  other  combat 
models  of  MEDMOD  are  roughly  comparable  in  detail  and  lie 
between  these  two  extremes.  This  structure  was  adopted  because 
of  the  relative  importance  of  the  interactions  in  CTFMOD  and 
because  of  the  availability  of  other  models  to  serve  as  combat 
models  in  MEDMOD.  The  point  of  this  limitation  is  to  note 
that  some  interactions  simulated  in  CTFMOD  have  corresponding 
interactions  that  are  simulated  with  less  detail  in  other 
subroutines  of  MEDMOD,  and  it  would  be  possible  (though  not 
necessarily  desirable)  to  simulate  these  other  interactions 
at  the  same  level  of  detail  as  in  CTFMOD. 

2.  MEDMOD  will  not  automatically  allow  Red  multi-purpose 
aircraft  to  serve  as  bombers  on  some  days  and  as  escort  air¬ 
craft  on  other  days. 

3.  The  model  of  Blue  air  attacks  on  Red  (land)  air¬ 
bases  simulates  attacks  on  aircraft  in  the  open  and  in  shel¬ 
ters,  but  it  does  not  simulate  attacks  on  runways  or  other 
facilities . 

4.  MEDMOD  assumes  coordination  between  air-launched 
and  submarine-launched  cruise  missiles  in  that  both  types 

of  cruise  missiles  contribute  towards  saturation  of  the  area 
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and  point  defense  of  the  task  force  (i.e.,  MEDMOD  assumes 
that  both  types  of  missiles  arrive  at  their  targets  at  about 
the  same  time).  If  it  is  desired  to  explicitly  simulate 
lack  of  coordination  between  air  and  submarine  launches, 
then  the  current  procedure  would  need  to  be  modified.  Appro¬ 
priate  modifications  would  not  be  difficult  provided  that  the 
specification  of  which  type  of  missile  arrives  first  can  be 
made.  Damage  due  to  the  missiles  that  arrive  first  would 
have  to  be  assessed  before  the  later  arriving  missiles  are 
engaged.  (That  is,  later  arriving  missiles  would  not  benefit 
from  saturation  due  to  earlier  arriving  missiles  but  would 
benefit  from  damage  caused  by  earlier  arriving  missiles.)  -As 
a  related  point,  saturation  is  played  in  a  relatively  simple 
way  in  MEDMOD.  A  more  general  and  more  sophisticated  approach 
based  on  queueing  theory  has  been  developed  and  tested  at 
IDA,  but  it  has  not  been  incorporated  into  xMEDMOD.  If  improve¬ 
ments  to  this  portion  of  MEDMOD  are  made,  then  this  more 
general  queueing  theory  approach  to  saturation  could  be 
considered. 

5-  All  Blue  surface  ships  and  ASW  aircraft  that  can 
shoot  at  Red  submarines  attacking  the  task  force  do  so  before 
those  Red  submarines  can  fire  at  the  task  force  in  Subroutine 
CTPMOD.  (This  restriction  does  not  apply  to  Subroutine  DDAY . ) 

6.  After  the  Red  submarines  that  are  attacking  the 
carrier  task  force  have  launched  their  weapons  (missiles  or 
torpedoes),  they  are  assumed  to  escape  the  task  force  without 
further  harm.  That  is,  flaming  datum  prosecution  of  sub¬ 
marines  is  not  simulated  in  MEDMOD. 

7.  Blue  carrier-based  aircraft  can  engage  only  Red 
aircraft,  not  ASMs  launched  from  these  aircraft. 

8.  Many  tactical  decisions  are  made  in  MEDMOD.  These 
decisions  typically  involve  when  to  attack,  where  to  attack, 
how  much  to  attack  with,  and  similar  questions  for  defense. 
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These  decisions  either  are  made  directly  by  inputs  or  are 
made  according  to  relatively  simple  decision  rules  based  on 
input  parameters.  Decisions  made  directly  by  inputs  do  not 
(automatically)  consider  the  status  of  the  war  at  the  time 
the  decision  is  made.  Decisions  made  by  simple  decision  rules 
consider  some  aspects  of  the  status  of  the  war,  but  they  are 
not  so  elaborate  as  to  consider  every  related  aspect  of 
combat,  nor  do  these  decision  rules  solve  for  optimal  deci¬ 
sions  with  respect  to  an  overall  measure  of  effectiveness. 

The  intent  in  constructing  these  decision  rules  was  to  keep 
them  relatively  simple,  to  base  decisions  only  on  those 
aspects  of  combat  that  would  usually  be  the  most  important, 
and  to  usually  make  reasonable  but  not  necessarily  optimal 
decisions.  However,  the  fact  that  the  decision  rules  used 
in  MEDMOD  are  simple  heuristic  rules  based  on  only  a  few  of 
the  relevant  aspects  of  combat  means  that  these  rules  will, 
in  general,  produce  non-optimal  decisions  which,  from  time 
to  time,  may  be  far  from  optimal  according  to  overall  measures 
of  effectiveness. 

4  .  A  Limitation  Concerning  Outputs 

MEDMOD  does  not  produce  a  summary  killer-target  (or 
killer-victim)  scoreboard.  Such  a  scoreboard  could  be  man¬ 
ually  constructed  by  examining  the  detailed  output  of  MEDMOD, 
and  additional  code  and  computer  variables  could  be  added  to 
MEDMOD  to  produce  one  or  more  such  scoreboards,  but  none  are 
automatically  produced  now. 
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THE  INP  ROUTINE 


I.  INTRODUCTION 

IDATAM  is  a  model  of  air  combat,  and  IDACASE  is  a  model 
of  naval  combat.  Both  of  these  models  use  essentially  the 
same  computer  routine  to  read  and  display  inputs.  This  routine 
is  called  INP.1 

This  appendix  contains  extracts  from  the  documentation  of 
IDATAM  (IDA  Paper  E-1409,  February  1979)  and  the  documentation 
of  IDACASE  (IDA  Report  R-255 ,  September  1981).  These  extracts 
discuss:  (1)  the  preparation  of  inputs  in  the  format  required 

by  INP,  (2)  the  steps  required  to  add  or  delete  input  variables 
in  INP,  (3)  the  conversion  of  INP  to  computers  other  than  those 
like  IDA's  CDC-6400,  and  (4)  some  of  the  features  of  INP. 

The  extracts  from  the  documentation  of  IDATAM  comprise 
Chapter  II  of  this  paper.  These  extracts  consist  of  Chapter 
II  (Sections  B  and  C)  and  Appendix  F  of  P-1409. 

The  extracts  from  the  documentation  of  IDACASE  (portions 
of  Appendix  C  of  that  documentation)  comprise  Chapter  III 
of  this  paper. 

One  difference  between  these  two  extracts  is  that  IDACASE 
is  a  Monte  Carlo  model,  and  the  first  input  to  IDACASE  is  a 
card  containing  the  seed  (or  a  blank  card,  which  causes  a 
seed  to  be  randomly  selected).  IDATAM  is  a  deterministic 
model  and  so  needs  no  seed.  The  format  of  the  inputs  to 


XA  somewhat  different  version  of  INP  is  used  to  read  and  display  inputs  for 
the  TACWAR  model  (IDA  Report  R-211,  Volume  III,  Part  II,  November  1977). 
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IDATAM  is  identical  to  the  formats  of  the  inputs  to  IDACASE, 
except  that  IDATAM  has  no  seed  card. 

MEDMOD,  like  IDATAM,  is  a  deterministic  model,  and  so 
MEDMOD  does  not  need  (and  cannot  accept)  the  seed  card 
described  in  the  extract  from  IDACASE. 

One  feature  of  INP  is  that  it  allows  "mid-run”  changes 
to  input  variables  to  be  read  in  INP;  these  changes  are  read, 
stored,  and  then  applied  during  the  computer  run  by  an  asso¬ 
ciated  routine  called  TIMET.  IDATAM  models  an  air  war  as 
occurring  over  many  time  periods  (e.g.,  over  many  days),  and 
IDATAM  uses  TIMET  to  change  input  values  during  the  course 
of  the  war  (i.e.,  between  specified  time  periods).  IDACASE 
models  one  raid  of  Antiship  Missiles  (ASMs)  attacking  a  naval 
task  force,  but  it  does  not  model  multiple  time  periods. 
Accordingly,  IDACASE  cannot  use  the  TIMET  routine  to  update 
input  variables  over  the  course  of  a  war.  Instead,  IDACASE 

uses  TIMET  to  allow  several  different  cases  or  scenarios  to 
be  evaluated  in  one  computer  run.  MEDMOD,  like  IDATAM,  models 

combat  over  multiple  time  periods  and  so  it  uses  TIMET  in  a 
manner  similar  to  IDATAM,  not  IDACASE.  The  format  of  the 
inputs  used  by  TIMET  is  identical  for  IDATAM,  IDACASE,  and 
MEDMOD — IDACASE  differs  from  IDATAM  and  MEDMOD  in  the  inter¬ 
pretation  and  use  of  these  inputs. 


II.  EXTRACTS  FROM  THE  DOCUMENTATION  OF  I DATAM 

CONCERNING  INP 

This  section  consists  of  Sections  B  and  C  of  Chapter  II 
and  of  Appendix  F  of  the  documentation  of  IDATAM  (IDA  Paper 
P-1409  )  • 

B.  MACHINE  CONVERSION 

IDATAM  is  written  in  FORTRAN  for  a  CDC  6400  computer  with 
150K  octal  core.  It  can  be  converted  to  other  machines  which 
have  a  FORTRAN  compiler.  However,  some  changes  may  be  required. 
This  chapter  outlines  parts  of  the  program  that  may  need  to 
be  changed  in  order  to  run  IDATAM  on  machines  other  than  CDC 
computers . 

Conventions  of  the  CDC  6400  computer  require  the  first 
card  of  a  program  to  be  a  PROGRAM  card.  All  files  are 
declared  in  the  PROGRAM  card  of  MAIN.  IDATAM  is  broken  into 
overlays.  By  CDC  convention,  the  first  routine  in  the  overlay 
must  have  the  characteristics  of  a  FORTRAN  main  program  (not 
a  subroutine).  Therefore,  there  is  a  PROGRAM  card  for  each 
overlay  or  a  total  of  seven  PROGRAM  cards.  Overlays  are 
defined  by  an  OVERLAY  card  with  the  following  format : 

OVERLAY (lfn,l1,l2) 

where 

lfn  =  the  logical  file  name  of  the  retention  file, 

(i.e.,  IDATAM  or  ATTRTN ) 

1^  =  primary  level  number 
±2  =  secondary  level  number. 

Since  there  is  an  OVERLAY  card  for  each  overlay  there  are  a  total 
of  seven  OVERLAY  cards.  An  overlay  is  called  by  the  following 
statement : 

CALL  OVERLAY  (fnJl1,l2,p) 
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where 


fn  -  the  logical  file  name  of  the  retention  file  in 
left-justified  hollerith  code  (i.e.,  6HIDATAM, 
6HATTRTN) 

1^  -  primary  level  number 

1^  -  secondary  level  number 

p  -  recall  parameter.  If  p  equals  6HRECALL,  the 
overlay  is  not  reloaded  if  it  is  in  memory. 

There  are  six  OVERLAY  calls  in  MAIN,  and  two  in  AIRATT 
making  a  total  of  eight  CALL  OVERLAY  cards.  This  makes  a 
total  of  22  cards  (7  PROGRAM,  7  OVERLAY,  and  8  CALL  OVERLAY) 
which  may  need  to  be  changed. 

The  input  routine,  INP,  was  designed  to  assist  the  user 
As  a  result,  the  input  formats  are  general  and  easily  under¬ 
stood,  but  the  routine  itself  is  fairly  complicated.  There 
are  three  main  concerns  in  INP  In  relation  to  machine  conver 
sion:  ENCODE/DECODE  statements,  word  size,  and  character 

conversion . 

ENCODE/DECOBE  are  statements  which  perform  memory-to- 
memory  transfer  of  data  often  called  core-to-core  I/O.  The 
parameters  are  defined  as  follows: 


ENCODE (c ,n , v) L 

where 

c  -  unsigned  integer  constant  or  a  simple  integer 

variable  (not  subscripted)  specifying  the  number 
of  characters  in  the  record  ;  c  may  be  an  arbi¬ 
trary  number  of  BCD  characters 

n  -  statement  number,  variable  identifier,  or 
formal  parameters  representing  the  FORTRAN 
statement 

v  -  variable  or  array  identifier  which  supplies 
the  starting  location  of  the  BCD  record 

L  -  input/output  list . 
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The  information  in  the  list  variables,  L,  is  transmitted 
according  to  the  FORMAT  statement  n  and  stored  in  locations 
starting  at  v,  c,  BCD  characters  per  record. 

DECODE( c ,n , v) L  . 


The  information  in  c  consecutive  BCD  characters  (starting  at 
address  v)  is  transmitted  according  to  the  FORMAT  statement 
n  and  stored  in  the  list  variables. 

The  CDC  6400  computer  has  a  60  bit  word,  6  bits  per 
character  making  a  10  character  word.  Variables  which  need 
this  character  space  will  have  to  be  declared  large  enough 
to  handle  up  to  10  characters  and  be  referenced  accordingly. 


As  will  be  explained  in  Section  C  below,  there  is  an 
option  in  the  input  routine  that  allows  the  user  to  increment 
or  replace  input  data  after  any  cycle.  To  implement  this  option 
there  is  a  two-character  cycle  code  in  columns  19-20  of  the 
input  data  cards.  Cycles  0  through  99  are  coded  as  required  and 
blanks  are  converted  to  0.  If  a  simulation  is  longer  than  99 
days,  day  100  is  coded  as  A0,  101  as  Al,  110  as  B0,  197  as  J7, 
etc.  This  two  character  code  is  read  in  A  format  and  converted 
to  a  numeric  value  in  machine  dependent  code.  Alphanumeric 
characters  are  assumed  to  have  the  following  values : 


Character 

A 

B 

C 


Octal  Code 

01 

02 

03 


Character 

0 

1 

2 


Octal  Code 

33 

34 

35 


Z 


32 


9 


44 


It  should  be  easy  to  make  this  conversion  for  any  machine. 


C.  PREPARATION  OF  INPUTS 

There  are  two  consecutive  groups  of  data  which  are  read 
in  as  inputs.  The  first  is  an  alphabetically  ordered  deck 
of  definitions  of  the  input  variables.  The  second  group  of 
data  consists  of  the  values  of  the  input  variables.  Each 
deck  is  followed  by  a  card  with  "ZZZZZZ"  in  the  first  six 
columns  as  a  delimiter. 

The  definition  of  the  input  deck  should  not  change  unless 
an  input's  definition  is  altered.  The  format  of  the  cards  in 
this  deck  is : 


Card  Column 


Contents 


1-6 

7 

8-77 


Input  variables  name  (left  justified) 
Sequence  number  of  card  (1-5) 
Definition  of  the  incut  variable. 


Up  to  five  cards  may  be  used  per  definition  and  the  sequence 
number  must  have  the  value  one  through  five. 

The  card  format  for  the  second  deck  is : 


Card  Column 


Contents 


1-6 

7-8 

9 


Not  used 


Continuation  code 


Input  variables  name  (left  justified) 


10-12 


First  argument,  if  needed,  (right 
j  ust if ied ) 


13-15 


Second  argument,  if  needed,  (right 
j  ust if ied ) 


16-18 


Third  argument,  if  needed,  (right 
justified ) 


19-20 


Cycle  number,  if  needed,  (right 
justified) . 
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Card  Column 


Contents 


21-30 

31-40 

41-50 

51-60 

61-70 

71-80 


Data  field  1 
Data  field  2 
Data  field  3 
Data  field  4 
Data  field  5 
Data  field  6 


There  are  six  ten-character  data  fields  (columns  21-80) 
for  actual  data  values.  All  inputs  follow  the  standard  FORTRAN 
typing  rule  (i.e.,  names  beginning  with  I-N  are  integer,  and 
otherwise  are  assumed  to  be  real).  Floating  point  numbers  are 
read  in  with  an  F10.0  format.  This  means  a  decimal  point  must 
appear  in  the  field  if  the  input  value  has  a  fractional  part . 
Integers  are  read  in  with  an  110  format  and  must  be  right 
justified.  There  are  also  four  alphanumeric  variables,  AACT, 
AAMT,  ALRS,  and  AMRS,  whose  values  are  read  in  with  an  A10 
format . 

The  first,  second,  and  third  arguments  are  used  to  indi¬ 
cate  how  the  data  are  to  be  stored.  For  example,  assume  input 
values  are  to  be  coded  for  a  one-dimensional  array,  BB,  dimen¬ 
sioned  to  16.  Three  cards  are  required.  The  first  card 
contains  BB  in  columns  1  and  2,  either  a  blank  or  0  in  column  8, 
and  the  data  values  for  BB(1)  through  BB(6)  in  the  six  data 
fields.  The  second  card  contains  the  variable  name,  a  "1"  in 
column  8,  and  has  values  for  locations  BB(7)  through  BB(12). 

The  third  card  contains  the  variable  name,  a  "2"  in  column  8, 
and  has  values  for  locations  13-16  of  BB. 
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Assume  input  is  required  for  an  array  ABCDEF(2,7)  with  the 
following  values : 


Column 

_1 _ 2 _ 3 _ 4 _ 5 _ 6  7 

row  1  29  140  11.4  .  1.  0  0.5  3.5  10 

2_ 10  10.5  11.4  10.5  12_ 12  13 

The  coding  can  be  done  in  two  ways.  The  first  way  is  to  enter 
the  data  in  rows.  Specify  the  variable  name,  the  first  argu¬ 
ment,  1=1,  and  enter  6  values  on  the  first  card,  followed  by 
a  second  card  with  the  variable  name,  a  "1"  in  column  8,  1=1, 
and  a  single  value.  Then  repeat  the  above  for  1=2. 
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The  second  method  is  to  specify  the  second  argument,  J=l, 
on  a  card  and  provide  two  values;  repeat  for  J=1  through  7- 
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The  latter  method  enters  the  data  by  columns.  For  this 
example,  the  first  method  requires  fewer  cards,  but  the  user 
may  find  the  second  method  easier  to  read,  verify,  and  if 
necessary,  change. 

Next,  assume  input  is  required  for  array  MMM(2,6,2)  with 
the  values: 
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Column 

1  2  3  4  5  6 

1  Row  1  1  3  5  7  9  11 

Plane - 2 - 2 _ 4_ _ 6 _ 8 _ 10 _ 12_ 

2  Row  1  13  15  17  19  21  22 

2  14  16  18  20  22  24 

In  this  case  three  methods  are  available.  Either  specify 
arguments  I  and  J,  J  and  K,  or  I  and  K.  The  first  two  methods 
will  require  twelve  cards,  whereas  the  third  method  will 
require  four  cards.  If  I  and  J  are  specified,  the  twelve  cards 
would  appear  as : 


If  I  and  K  are  specified,  the  four  cards  would  appear  as: 


1  I-A-Kiak 
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Once  an  input  deck  has  been  set  up,  the  user  may  wish  to 
make  variations  by  changing  the  values  for  some  of  the  input 
variables .  One  way  to  do  this  without  having  to  delete  the 
original  card(s)  is  to  place  the  card(s)  with  the  updated 
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value (s)  anywhere  after  the  original  card(s),  but  before  the 
input  cards  for  the  next  cycle.  For  cycle  zero,  the  program 
simply  accepts  the  last  input  value.  The  same  principle  holds 
for  replacement  variables  for  cycles  beyond  cycle  zero.  How¬ 
ever,  all  cards  for  incremental  variables  are  processed  after 
cycle  zero. 

For  example,  if  it  is  desired  to  change  the  fourth 
element  of  array  BB  to  10.0,  the  original  card  could  be 
retyped  with  10.0  in  the  fourth  data  field,  or  an  additional 
card  could  be  inserted  anywhere  after  the  original  cards. 

This  card  would  contain  "BB”  in  columns  1  and  2,  a  "4!r  in 
column  12,  and  the  value  ”10.0'’  in  data  field  1,  columns  21-30. 
This  latter  method  may  be  convenient  if  there  are  many  changes 
to  be  made. 

Input  variables  can  be  updated  after  any  cycle.  The 
cycle  number  is  in  card  columns  19-20.  As  explained  at  the 
end  of  Section  B  above,  cycles  zero  through  ninety-nine 
are  represented  by  the  numbers  0  through  99,  with  0  or  a  blank 
representing  cycle  0.  If  the  simulation  is  to  be  run  longer 
than  99  cycles,  A0  represents  100  cycles,  A1  represents  101, 

B0  represents  110  cycles,  J7  represents  197  cycles,  etc. 

Cards  in  this  deck  must  be  in  ascending  order  of  cycles.  Some 


input  variables  are  incremented  (see  Appendix  C  [of  p_i409] , 
Incremental  Variables)  by  the  values  in  the  data  fields;  all 
values  are  replaced  by  the  new  values. 

The  program  [IDATAM]  is  now  dimensioned  so  that  the  upper 
bounds  on  the  following  variables  are: 

NAC  (maximum  number  of  types  of  aircraft)  15 
NAM  (maximum  number  of  types  of  air  munitions)  10 
NLS  (maximum  number  of  types  of  long  range  SAMs/HIMADS)  3 
NMS  (maximum  number  of  types  of  medium  range  SAMs/SHORADS )  6 
NQRAT  (maximum  number  of  types  of  QRA  aircraft)  7 
NS  (maximum  number  of  sectors)  2 
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These  variables  can  be  increased  provided  that  all  the  appro¬ 
priate  COMMON  and  DIMENSION  statements  are  changed,  and  that 
the  program  will  still  fit  into  core. 

There  are  no  internal  checks  made  on  the  consistency  of 
inputs.  For  instance,  there  will  be  problems  if  the  variables 

listed  in  Appendix  D  [of  P-1409]  are  zero.  Care  should  also  be 
taken  when  preparing  the  variables  which  involve  the  allocations 
of  aircraft. 


t 
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PROCEDURE  FOR  ALTERING  THE  LIST  OF  INPUT  VARIABLES 


This  appendix  is  only  for  the  user  who  wishes  to  add, 
delete,  or  redimension  input  variables  in  the  model.  The 
data  decks  for  IDATAM  are  relatively  easy  to  prepare.  However, 
the  input  routine,  INP,  which  processes  these  decks  is  fairly 
complex.  To  allow  the  user  the  convenience  of  a  simplified 
input  scheme,  a  cross  reference  map  of  the  input  variables, 
which  are  defined  in  blank  common,  is  used  in  INP.  The  cross 
reference  map,  IVARQ,  is  keyed  on  the  input  variable  name. 

If  blank  common  is  to  be  changed,  IVARQ  must  be  updated  to 
reflect  the  change.  IVARQ  is  defined  by  a  set  of  DATA  state¬ 
ments.  An  independent  program  named  COMM  is  used  to  recreate 
the  DATA  statements  when  COMMON  is  changed.  A  run  to  change 
a  statement  in  COMMON  from  "COMMON  BLRS (3,2,2)"  to  "COMMON 
BLRS(4,2,2)"  might  appear  as: 


Card  No. 


Card 


Description  of  Action 
Job  identifier,  request  150K. 


JOB  CARD 


2 


REQUEST(0LDPL,HI){j(0001/FP)  Request  tape  which  contains 


program. 


3 


NUPDATE(N=PL) 


Update  COMMON  (cards  21-23). 
Returns  OLDPL. 


4 


RETURN  OLDPL 


5 


NUPDATE(Q,P=PL) 


Copy  updated  COMMON  onto  TAPE 
10  (cards  25-27). 1 


6 


FTN. 


Compile  Program  COMM  (noted 
card  29). 


lsee  the  text  following  this  example  for  a  specification  of  TAPE  10. 
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Card  No. 


Card  Description  of  Action 


7 

LGO. 

Load  and  execute  Program  COMM 
(data  noted  card  21 ) (decreases 
field  length) . 

8 

REWIND, TAPE15. 

Rewind  tape  15  for  later 
processing. 

9 

RFL, 150000. 

Increase  field  length  to  150K. 

10 

REQUEST(NEWPL,HI )b(SAVE) 

Request  a  save  tape  named  NEWPL. 

n 

NUPDATE(N,F,R=C,P=PL) 

Do  update  (cards  33-35)  to 
create  a  new  program  on  NEWPL. 

12 

REWIND  LGO. 

Rewind  the  load  file. 

13 

FTN( I=C0MPILE,A,T,R=3) 

Compile  program  to  create  load 
file,  LGO. 

14 

REQUEST  (BIN,H  I  )j4  (SAVE) 

Request  a  save  tape  named  BIN. 

15 

REWIND, LGO 

Rewind  the  load  file. 

16 

C0PBF(LG0,BIN) 

Copy  LGO  onto  BIN. 

17 

REWIND, LGO. 

Rewind  load  file. 

18 

CLEAR 

Zero  out  memory. 

19 

LGO. 

Load  and  execute  program,  IDATAM. 

NOTE: End  of  Control  Stream 

20 

7/8/9 

Del imiter. 

21 

*IDENT  C0MCHG.1 

Arbitrary  identifier  for 

NUPDATE. 1 

22 

*0ELETE  COMM. 13 

Delete  the  old  COMMON  card, 

COMMON  BLRS (3, 2, 2) .2 

23 

COMMON  BLRS (4,2,2) 3 

Insert  the  new  card  in  COMMON. 

^COMCHG.l  is  the  example  identifier  used  here. 

2CCMM.13  is  assumed  to  specify  the  card  COMMON  BLRS(3,2,2)  in  this  example. 

3This  card  starts  in  column  7- 
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Card  No. 


Card  Description  of  Action 


24 

7/8/9 

Del imi ter. 

25 

* I DENT  COPY! 

Arbitrary  identifier  for  NUPDATE 

26 

♦COMPILE  COMM5 

Compile  COMMON. 

27 

♦COPY  COMM, COMM. 2, 

CHG13.21 ,TAPE10 

Copy  updated  COMMON  onto 

TAPE! 0. 6 

28 

7/8/9 

Del imi ter . 

29s 

PROGRAM  COMM7 

Create  new  data  statements  on 
TAPE15  from  TAPE10. 

30 

7/8/9 

Del imi ter. 

31s 

DATA  FOR  PROGRAM  COMM8 

Exceptions  to  type  rule.8 

32 

7/8/9 

Delimiter. 

33 

♦IDENT  DSTMT29 

Arbitrary  identifier  for  NUPDATE 

34 

♦YANK  DSTMT1 9 

Delete  old  data  statements. 

35 

♦INSERT  CHG18.610 

Insert  new  data  statements. 

36 

♦READ  TAPE! 5 

Read  the  data  statements  from 
TAPE! 5. 

37 

7/8/9 

Del imi ter. 

38 

IDATAM  DATA  DECKS 

Definitions  and  values. 

39 

6/7/8/ 9 

Delimiter. 

5CGMM  refers  to  a  deck,  not  a  Program  here. 

6CC1Y!M.2  and  CHG13.21  are  assumed  to  Include  all  of  the  Inputs  and  nothing 
else. 

7The  FORTRAN  deck  of  cards  which  is  PROGRAM  COMM  goes  here. 

aThe  required  cards  which  give  the  data  for  PROGRAM  COMM  go  here — see  the 
text  which  follows  for  the  definition  of  "exceptions  to  type  rule . " 

8This  assumes  that  the  old  data  statements  were  all  identified  by  DSTMT1 

and  that  the  new  set  of  data  statements  is  to  be  identified  by  DSTMT2. 

10This  assumes  that  the  identifier  of  the  card  just  before  the  old  data 
statements  ( i . e . ,  j  ust  before  DSTMT1 . 1 )  is  CKG18 . 6 . 
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This  input  scheme  uses  NUPDATE,  a  program  maintenance 
routine,  to  update  IDATAM.  If  your  system  does  not  support 
a  program  maintenance  routine,  change  program  COMM  to  punch 
the  new  data  statements  and  insert  them  by  hand. 

The  data  input  to  program  COMM  is  the  COMMON  deck  (assumed 
to  reside  on  TAPE10)  followed  by  exceptions  noted  on  cards  in 
the  data  deck. 1 * * *  The  exceptions  to  be  noted  are  with  respect 
to  the  "typing  of  variables"  and  the  updating  of  input  vari¬ 
ables  in  TIMET.  The  conventions  for  typing  of  variables  is  . 
the  standard  for  FORTRAN,  i.e.,  names  beginning  with  I-N  are 
integer,  and  otherwise  assumed  real.  If  a  variable  contains 
alphanumeric  information,  it  must  be  noted  as  "ALPHA".  If  a 
variable  is  to  be  accepted  as  real  when  it  begins  with  I-N, 
it  must  be  noted  as  "REAL".  Similarly,  a  variable  that  does 
not  begin  with  I-N  (but  is  typed  integer)  must  be  noted  as 
"INTEGER".  Processing  a  variable  at  time  t  is  always  assumed 
to  be  "replacement".  If  the  variable  is  to  be  incremented, 
it  must  be  noted  as  "INCREM".  If  a  variable  is  to  be  treated 
as  "side-implicit"  it  should  be  noted  as  "BLURED".  (Note: 
the  TA.CWAR  model,  currently  being  developed  at  IDA,  uses  this 
option,  IDATAM  does  not.)  Following  an  end  of  file  on  TAPE1Q, 
input  for  variable  types  is  expected  from  the  system's  card 
reader.  This  input  is  free  format  in  columns  6-72.  Column  6  is 
any  non-blank  character  denoting  continuation.  The  first  string 
of  characters  to  be  input  is  ",END,"  to  terminate  the  reading  of 
COMMON.  Exceptions  are  then  input  as  strings  such  as 

"OPER,  V,  ,  V„ ,  .  .  .  ,  V  ".  OPER  can  have  the  values  ALPHA.,  INTEGER, 

5  l5  25  5  n 

REAL,  INCREM,  or  BLURED.  The  values  of  V,  are  variable  names. 


1 Since  MEDMOD  uses  TAPE10  for  a  different  purpose,  a  different  file  should 

be  used  here  if  this  fully  automated  procedure  is  to  be  employed  with 

MEDMOD.  Alternatively,  the  three-step  procedure  described  in  Section 

III.D.2  of  this  appendix  can  be  (and  has  been)  used  with  MEDMOD. 
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The  exceptions  are  terminated  by  the  string  "END,", 
following  may  be  a  helpful  example: 


The 


..’-l*  i*i  a 

. 

■1.1*1 

tnn»iw.wim<Mw)wi  ~ 

-i  i  i 

* 

(itiiifta 

iM." 

IHTUITH-L?!** 

i  «  i 

J«#,C 

&iM^iA££iii  .3| 

AC-&u$ty 

lllliiiti 

i  I  1  1  1  «  ■ 

-i  i  ' 

14 

,Jy&!L 

^1  1  1  1  1  '  I  i  * 

-i-±  U  1  1  1  |  M 

1  fl  >  1  1  f  f  !  1 

1  1  1  1  1  1  1 

L  1  i 

1  1  1 

1  1  1  1  *  £  1  I  i 

—1.  1  1  1  1  i  1  11 

1 

1  1  1 

— L  -lilt  1  -L.  1  1 

<  i  1  i  '  ‘  ‘  '  > 

miM'ii 

i-LJ— L-LJ- 1—1—1 

i  i  j  i  i  i  i  i  i 

.  i  i  i  i  i  i  i  i  i 

■  1  1  1  1  1  1  1 

-1  1  1  1  1  1  1 

No  exceptions  need  be  included. 
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III.  EXTRACTS  FROM  THE  DOCUMENTATION  OF  IDACASE 

CONCERNING  INP 


-his  section  consists  of  portions  of  Appendix  C  of  the 
documentation  of  IDACASE  (IDA  Report  R-255). 

PREPARATION  OF  INPUTS 

A.  SAMPLE  INPUT  FILE 

Figure  C-l  shows  a  sample  deck  of  input  data  used  to  run 
IDACASE.  This  deck  was  used  to  generate  Figure  28.  The  type 
of  data  needed  is  discussed  next. 

B.  INPUT  RECORDS 

1 .  The  Input  Data  Deck 

The  three  types  of  input  data  records  provided  to  IDACASE 
in  the  input  card  deck  are: 

1 .  Seed  card 

2 .  Input  variable  definitions 

3.  Input  variable  values. 

Figure  C— 1  shows  a  sample  working  data  deck  which  illustrates 
the  three  types  of  inputs.  This  input  deck  consists  of  (1)  a 
seed  card,  followed  by  (2)  a  deck  of  input  definition  cards 
ended  with  an  input  definition  card  with  a  "ZZZZZZ"  for  vari¬ 
able  name,  followed  by  (3)  a  deck  of  input  value  cards  ended 
with  a  "ZZZZZZ"  for  variable  name. 
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0«000ou00 12*23 121 663 

apnob^i  (k,irp,  m4*imum  elevation  ang»  e  mummer  ibp  roR  ARtA  of  detection 

ApN0B^28Y  SmIP  K  'a'GaINST  HIGH  5IV£R  OR  DIVING  SEA  SKlMM£H.-0fcG. 

AunOA  iDlVjr  ANGLE  ASSUMED  gY  FLEET  FoR  ALL  WISH  OlV£RS.  "Ea^RED  FROM 
A«nOA  ^ASSUMto  FLIGHT  PATh  dURtng  dIvE  TO  ITS  HORIZONTAL  wojecTiOn— oe«. 
ANfiJMNi ( J) AaU  SS/FCC  J  NlNIMyM  FIRING  BEARING,  ANGLE.  wI|H  vfcRTEX  4T 
AWGJMN^FlRIwti  SHIP*  MEASURED  In  h0RI70NTaL  PLANE  FROM  FLt£ •  u  OEG  bEaRING 

.m^jmnjto  Point  unoeR  asm— qfgT 

ANG JMj i ( J ) A aO  SS/FCC  J  MAXIMUM  FIRING  BEAMING,  ANGLE, 


yllw  vfcRTEx  aT 

ANGJMA^FlRInti  SHIP.  MEASURED  In  h0RI70NTaL  PLANE  FROM  Ft t£ I  u  OEg  bEaRING 

Grange  958* 


4mgjmajtq  point  ONgpC 

AcMflOLi  (I)HOHIZONTAC 


y  AR(3^y 


SHIP  TU  ASH  I  LAy^C n,.fT# 


ASM 

AO 

AO 

ASM 

SO 


SO 

CNT 

CNt 


CaRiCU  (JU)  minimum  FIRING  BEaR'ng  FOo  SSO  UNGUIOED  SYSTEM  JU«  m£4SiiReo 
CijRlCiZCOUNTtR-cLOcKRlSE  IN  hOX iZONT 4L  PLaNf  f«OM  SHIPS  8OW-*OE<3. 

CBR2C11 (J„)MAvIMum  FIRING  BEARtng  FOo  SSO  uNGylOED  SvSTem  J„.  mEaS,,RED 
CBR2C12COONTEP-CLOCKRISE  IN  HORIZONTAL  PLANE  FHOM  SHIPS  BO«— OEG. 

CnwN0S. STEP«IZE  FOR  oO"NR4NGE  oTST4N(.£,  ESCORT  TO  TARGET  SHlMt  IN  4ao 
CnWN0b2ENGAGtMENT  CONTOUR  T4BLr*  FOR  DlVJNG  C£a  SK I MM£RS--F T » 

CowNR  lSfEPMlZE  FOR  DOwNRaNGE  OTSTANfE,  ESCORT  TO  TARGET  SHIM,  In  aAO 
CowNO  ^ENGAGEMENT  CONTOUR  TABLr*  FOR  HIGH  UTVfeHS— ET. 

CraNG  1 ( K )  chip  1  TO  SHIP  K  ANGLE  COmPaREU  TO  0  OEG  FOR  FLtE ‘"”0£G,  S 

CfdANI)I(K)  -HIP  I  TO  sMIP  K  rAngE—Et. 

c«*xcu (jutyrj maximum  horizontti  Range  eon  intercept  by  ONwuiOEO  sso  typf  so 

CmaXC12JUTY»— ft: 

Cm T NCI  i  (  JuTyP)  M I NTM(jM  RORlzONxat  RANGE  EOM  TNtERCEPt  RY  yN»*vjiOED  SsO  iYPF  SO 
C«  T  NC 12 JUTYo— -fTT 

coffds^tePbize  fop  offset  ran«f  of  fscori  from  target  shim  in  aao  cnt 

COFFDSiiENGAGEMENT  CONTOUR  TABLES  FOR  DIVING  SEA  SKIMM£RS--FT» 

coffr  xStepbize  for  offset  RaNgf  oe  fScor i  from  target  ship  in  aao  c*t 

COFFR  ^ENGAOtMcNT  CONTOUR  TaSLe«  EOR  HIGH  OIVEHS— ET . 

c«ur  4 ( i ) actual  course  relative  to  target  chip  of  asm  i  —  angle  *  with  asM 
roUR  2VpflTrA  4T  TaRge’T  ShIP*  uF4SURfo  IN  mOR1ZONT4L  PLanE  FMOm  p'-pE1 
Co,jR  jo  DEG  jO  POINj  UNOEP  As«— OEO. 

cwa ve  i (tmTiconstant  by  which  we*  wave  is  to  be  shifted  ton  »sm  type  imt.  asm 

Cw4Vp  2T iMp  F OR  “aVE  N  IS  TIME  FOR  W»VE  N-»  PLUS  FLYIN  TIME  ‘SEE  IdTWaV) 

CuAVE  3PLUS  CwAvE ( IMt> --sec. 

DfTMin! (k) Minimum  DELTA  time  asm  MUST  Remain  IN  SHIP  K  ntTfecHOR  ‘TlNOET  o 

Dptmin2Tc  toutoTI  for  v4lio  o£tecttOm"-sec. 

DTS8P  1(K,IbP)0EtECTI0M  RaNQJ  m,,m0ER  IBP  FOR  UEtECtING  SHIM  A  aGaInSj  D 

DTS8P  2HTGH  DIVERS  OR  OIVlNQ  Sea  SKIMMERS— fT. 

DTSSCL! (K.Ic)FACTDP  FO«  SCALIN«  DETECTION  «4N«€S  <0ISrP)  Of  SHIP  K  FOP  0 
0rSSci-2JaMMTNG  IN  S£Ct0r  IS. 

D«»LOSLiHORItUNtAL  OIStANCE  FOR  OlvING  SEA  SKIMMER  LAUNCH  PsNGE  to  RANGE  ASM 
ooiosL^OF  leveling  off  and  staottng  ckimming— ft, 

OBNGMNi (IMT)MINIMUM  HORIZONTAL  PaNGE  FOR  UETecTJON  OF  AS"  » YM£  ImT.-fT.  d 

OONGM*UIMT^H4XIMUM  HORIZONTAL  PaNGE  FOR  OCTECTION  OF  A S"  TYH£  ImT.-fT.  o 

OCCA  lCRuIwe  aLtItuOE  before  MvE  Fnfl  OlylNG  SEA  SKIMMEn..ft,  ASM 

d*ovelidtvimg  sea  skimmer  horI7onTaL  velocity  during  ano  hcfuRe  dive— fpc  asm 

OCLKTSiOlSTANcE  FROM  RANGE  OF  i>V£LlNG  OFF  TO  MaNGE  TaRglT  SHIP  jS  KNOWN  aSM 
0*1  KTSjjTq  Ft  EET  FOR  OI*INg  SEA  skImMfR— ft: 

OcSVELiOlVlMG  SEA  SKIMMER  VELOCITY  AFTER  OIVE  (OURING  SKImminG) — FpS,  aSM 

0T4FTh1 ( j) OfLTa  Time  FROM  FIRING  (FOP  active  SYSTEMS)  OR  FHOM  INTE»CEPT  AO 

0t*FtH2  (FOR  sAM/s*T  SYSTEMj)  TYt L  sS/pCC  AVAILABLE  FOR  Nfc*  AAO  ASSIGNMENT 
DTAFTHj-.SEr. 

OtbRSuI (JGTvM) TIM?  BETWEEN  ROUwnS  OF  A  SALVO  FOR  GUIDEO  Ssu  TYPE  SO 

0TBpsu2JGTYP— «EC, 

QtbSaLi ( J) Ttme  BETWEEN  ROUNOS  op  A  SaLVO  FOR  AAO  SS/FCC  V— SAC.  AO 

OTDET  IDELTa  time  FOR  BETecTIO.-.  TIME  STrPS-.stC.  0 

DtOLCI 1  ( JUTvR) OEL7A  TlME  FROM  nFT£CTTON  Ty  FIHE  FOR  UNGuIntO  SS°  SYSTCM  S° 
OTOLC12TYPE  JUTYR— SEC* 

otdLSui (jgTvm)oelta  time  from  oftecTtOn  to  launch  for  GUioto  sso  system  so 

DTDLSu2TYPr  JGTYP— SEC*  .  _  „ 

0THOCil <JGTyH)DELTA  TlR£  FOR  AnnlTlONAL  OELly  BEFORE  Clws  ^IHlNG  0,,£  T0  SO 

( Continued ) 


Figure  C-l.  LIST  OF  INPUT  DATA  CARDS 
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S«PKSui (JGTvP.IMT) SINGLE  SHOT  b*  FOR  GUIOEO  SSO  SYSTEM  TTpt  J0TYP 
S«PKSu2*(;a TnST  aSm  TYPE  IMT. 

T«rTItlCJ)R»NKiNG  OF  A*0  SS/FC5S  FOR  OECIUtNQ  ORDER  OF  CPF  EyENTS 
TncTlt20CCUPlN6  AT  IDENTlAL  TIurS. 

T/H  INHX <I)Ct OcK  TIMES  «SED  AS  oLaNNEH  TIME  OF  LAUNCH  OF  ASM  I.  THIS  TIME 
Tnt  INH2IS  Used  IN  GENERATION  05  nOPM»CLy  DISTRIBUTED  TIMES  OF 

?rtLPAMi*(  iyT^ISTfsTATlSTlCAL  PAbamETEpS  OF  NOBN»L  DISTRIBUTION  FOR  TIME  OF 
TntPAN^LAUNrH  BASED  ON  PLaNNEO  I  aUNCH  TIME  FOH  aSM  TYPE  ImI  <IST  ■  1  FOR 
Tm  PAHje-rANOARD  OEvIAtIon.  IsT  ■  2  PnR  OELTA  M€ANJ.-SEC. 

V/!1insui<jgtvh^  average  worizonTai.  velocity  or  mouno  from  guideo 


VnllNSugSYSTrM  TYPf  J0TyP-«FPS. 
VdnOCIi(JUTyP) AVERAGE  HORlZONTji 
VoN0Cl2SYSTrM  TYPE  JUTYP— FPS 
171122. 


velocity  or  mound  fRom  un^uioed 


sso 
sso 


so 


AO 


ASM 


ASM 


SO 


so 


ArNORH 

ArNOBM 

ArNOBM 

ArNOBM 

ArNOSM 

ArNOBP 

ArNOBM 

AWOOA 


1 

7 

7 

A 

« 

A 

7 


20. 

201 

20* 

20S 

20S 

20S 

20S 


AA. 

6rt  • 

Art  • 

Art  • 
6rt  • 
Art* 


ANOJMN  o 

2^0* 

9*0* 

765 

73. 

20* 

fo* 

AwgJMn  1 

20i 

5*. 

20s 

26. 

270. 

27" . 

ANGJMN  2 

90. 

n  rt  % 

30s 

30. 

20. 

20. 

ANGJMN  3 

20* 

AMfiJMA  q 

loo* 

Tao* 

2«4. 

284. 

J4o* 

34rt  • 

ANfiJMA  I 

340« 

rt4<>* 

3*0* 

340* 

YO* 

9°: 

ANGJMA  2 

270. 

33o. 

330. 

34o. 

34rt  • 

AMfiJMA  3 

340* 

A«mROL  o 

9o6ooo* 

900<)00» 

*00600* 

’00060. 

905000. 

A«mROL  1 

900000* 

9rtrt000 . 

90«000* 

Rooooo* 

900000. 

90^000. 

A«mROL  2 

90^000. 

SnoOOO. 

OOrtrtOO* 

900000* 

900000. 

90"000. 

AamROL  3 

9o000(j. 

9rtrt ooo . 

9oonoo* 

ROOOOO* 

900000. 

9o?000. 

axmRol  k 

900000« 

Qflrt000« 

90O ooo* 

900000* 

9ooOoO* 

90n000* 

A«mROL  5 

900000* 

o  rt  n  0  0  0  • 

9uonoo* 

900000* 

90000^. 

9on  000 • 

A«mROL  6 

9oOOOO« 

brtrtOOO. 

900000* 

ROOoOO* 

900000. 

90"000. 

AamROU  7 

9o0ooo* 

SnnOOO. 

900000* 

900O00* 

900000. 

9oSooO. 

AamROL  3 

9ooooo* 

9rtn000« 

90O000* 

Rooooo* 

900000. 

90n000« 

A«mRQL  9 

900000. 

oooOOO • 

90Ort0O* 

900000 • 

YOOOOO. 

90"000. 

A«mROCio 

Ooitooo. 

oonOOOp 

90OO00* 

900000* 

YOOOoO. 

900000. 

A«mROL11 

900009* 

onoOOO  m 

900000* 

900600* 

900000. 

90*000. 

A«mROL  12 

9o0ooo* 

oooOOO . 

9OOO00* 

900000* 

900000. 

90*000« 

A«mROLi3 

9o0ooo* 

art oOOO • 

900000* 

900000* 

900000. 

90A000. 

A*mROL  i  a 

900000* 

SflnOoO* 

9oo6oo# 

900000* 

900060. 

9oSooo» 

A*mROL ^5 

9o0oOO» 

^  n  n  0  0  0  • 

90Ort00# 

900000* 

9000oO. 

90a000* 

A«mR0Li6 

9(J0006* 

Qrtrt000  • 

90O00O* 

• 

Pooooo* 

• 

(Continued ) 

Figure  C-l .  (Conti nued) 
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7*|_PAn  2 

v«uNsu 

VonOCI 

NiimWAv 

NaSMS*  , 

N«SMS^  9 

NaSHS*  , 

N»SMS^  4 

N.RMS*  ^ 

NraSF 

A»nOBk  o  i 
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For  brevity,  portions  of  this  figure  have 
been  deleted  in  this  extract. 


Figure  C-l.  (Concluded) 
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2  . 


The  Seed  Card 


The  first  card  of  the  input  deck  is  used  to  initialize  the 
seed  for  random  number  generation.  A  sample  seed  record  is 
shown  in  Figure  C-2.  The  format  for  this  card  is: 

Card  Column  Contents 

l-20  An  octal  number  seen  (use 

digits  0  through  7  only) . 

Specifying  the  same  seed  input  enables  the  user  to  reproduce  a 
random  number  stream  in  different  computer  runs.  A  blank  or 
zero  input  for  the  seed  causes  random  initialization  (using  the 
system  clock)  of  the  random  number  generator. 

3 .  Input  Variable  Definition  Cards 

The  deck  of  input  variable  definitions  gives  descriptive 
information  concerning  each  variable  which,  for  IDACASE,  in¬ 
cludes  variable  name,  index  name(s),  and  a  variable  definition. 
These  definitions  appear  in  the  complete  output  of  input  vari¬ 
ables  and  values  provided  by  IDACASE ' s  input  routine. 

A  sample  input  variable  definition  record  is  given  in 
Figure  C-3 .  These  variable  definition  cards  must  be  in  alpha¬ 
betical  order  by  variable  name  to  be  used,  although  omission  or 
misordering  of  definitions  will  not  affect  data  values. 
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Figure  C-2.  INPUT  SEED  CARD  FORMAT 


3 

sis 


Figure  C-3.  INPUT  VARIABLE  DEFINITION  CARD  FORMAT 


The  format  for  the  input  variable  definition  card  is: 
Card  Column  Contents 

1-6  Input  variable  name 

(left  justified). 

7  Sequence  number  of 

card  ( 1-5  )  . 

8-77  Definition  of  input 

variable . 

Up  to  five  cards  may  be  used  in  a  definition,  and  the  sequence 
number  must  have  a  value  from  1  to  5 . 

4 .  Input  Variable  Value  Cards 

The  deck  of  input  data  values  contains  values  to  be  assigned 
to  selected  input  variables.  These  cards  allow  specification 
of  variable  name,  index  value(s),  variable  value (s),  and  case 
number  for  an  input  variable.  All  input  variables  are  set  to 
zero  (by  the  input  routine)  unless  values  are  entered  with  in¬ 
put  variable  value  cards.  The  cards  may  be  in  any  order  within 
a  Case  (or  cycle).  (Note  that  both  the  variable  definition  and 
variable  value  decks  can  be  sorted  into  useful  or  rational 
order.)  If  a  card  for  a  particular  value  for  a  variable  is  re¬ 
peated  in  a  Case,  the  last  entry  is  used  by  the  program. 
The  format  for  the  input  variable  value  card  is: 


Card  Column 
1-6 


7-8 


Contents 

Input  variable  name 
(left  justified) 
Continuation  code 
( integer ) 

Blank 
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10-12  First  index  value,  if 

needed  (right  justified 
integer ) 

13-15  Second  index  value,  if 

needed  (right  justified 
integer) 

16-18  Third  index  value,  if 

needed  (right  justified 
integer ) 

19-20  Cycle  number  =  Case 

number  less  1  (integer) 

21-30  Data  value  1 

31-40  Data  value  2 

41-50  Data  value  3 

51-60  Data  value  4 

61-70  Data  value  5 

71-80  Data  value  6 

Sample  input  value  records  are  given  in  Figure  C-4 .  Inputs 
follow  the  FORTRAN  typing  rules  and  are  read  with  FORTRAN  format 
conventions.  That  is,  real  numbers  are  to  be  specified  with 
F10.0  format  while  integers  must  be  given  in  110  format.  There 
are  also  two  alphanumeric  variables,  NSYSSD  and  NSYSCI ,  whose 
values  must  be  provided  in  A10  format. 

The  index  values  in  columns  10  through  18  allow  flexibility 
in  the  entry  of  data  values  into  arrays.  With  these  inputs, 
indices  of  a  dimensioned  variable  may  be  set.  Only  one  index 
may  be  allowed  to  vary  (by  not  specifying  index  values).  The 
sample  in  Figure  C— 4  show  examples  of  data  entry  for  an  undimen— 
sioned  integer  variable,  NDS,  and  for  real  dimensioned  variables 
DISBP(7,5)  and  PKCUM  ( 10 , 2 , 5  )  .  The  two  examples  for  the  two- 
dimensional  variable  DISBP(I,J)  will  give  the  same  results  for 
stored  variable  values. 

Since  only  six  values  can  be  specified  on  an  input  card, 
the  continuation  code  provides  for  additional  (more  than  six) 
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Figure  C-4.  INPUT  VARIABLE  VALUE  CARD  FORMAT 


values  of  a  variable,  for  particular  index  values,  to  be  given. 
The  two  samples  of  data  input  in  Figure  C-3  for  DISBP  and  PKCUM 
show  the  use  of  the  continuation  code  and  index  specification. 
The  continuation  code  value  is  zero  (or  blank)  for  the  first 
set  of  six  values  and  increases  by  one  for  each  succeeding  set 
of  six  values.  (All  continuatiQns  need  not  be  specified.  If 
only  the  last  10  values  of  variable  COUR  (100)  are  to  be  speci¬ 
fied,  only  the  COUR  cards  with  continuation  index  values  15  and 
16  need  be  entered.) 

The  cycle  number  field  of  the  input  variable  value  card  is 
used  in  IDACASE  to  allow  several  Cases  to  be  included  in  a 
single  computer  run.  The  cycle  number  for  the  first  Case  is 
zero  (or  may  be  omitted)  and  subsequent  cycle  numbers  increase 
by  one.  (That  is,  Case  2  corresponds  to  cycle  1,  Case  3  to 
cycle  2,  and  so  on.)  Input  variable  values  must  be  grouped  by 
cycle  number  and  ordered  by  increasing  cycle  number,  and  the 
input  variale  NCASE  must  be  set  to  the  number  of  Cases  to  be 
run . 


C.  OUTPUT  DISPLAY  OF  INPUT  VARIABLES 

1 .  Complete  Input  Display  by  INP 

The  initial  output  display  provided  by  IDACASE  is  a  list¬ 
ing  of  all  input  variable  names,  definitions  and  values  provided 
by  the  input  subroutine,  INP.  The  first  page  of  this  output  is 
shown  in  Figure  C-5.  This  page  of  output  shows  the  seed  input 
in  the  first  line,  followed  by  "TIME-T"  prints  which  give  input 
variables  with  values  to  be  used  in  additional  Cases.  Below  the 
"TIME-T"  displays,  the  complete  printout  of  definitions  and 
values  for  all  inputs  for  the  first  Case  begins. 

"TIME-T"  prints  are  only  given  for  variables  to  be  changed 
after  the  first  case.  (The  name  "TIME-T",  as  in  the  subroutine 
TIMET,  comes  from  application  of  this  capability  in  earlier  mod¬ 
els  to  bringing  in  new  data  at  certain  times  in  a  simulation.) 
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"TIME-T  1"  prints  give  seven  new  AENDBP(K,L)  values  for  each 
ship  (K)  for  Case  2,  values  of  25  compared  to  20  given  below 
for  Case  1.  "TIME-T  2"  returns  AENDBP  to  its  original  (Case 
1 )  values  and  changes  the  value  for  AHDDA  from  40 .  to  20 . 

2 .  Case  Input  Display  by  Function 

A  display  of  tables  of  inputs  by  function  is  the  first 
output  given  for  each  IDACASE  Case. 

This  output  Is  not  provided  by  INP  (it  is  provided 
by  an  output  routine  constructed  specifically  for 
IDACASE),  and  so  the  discussion  of  it  and  the  cor¬ 
responding  figure  (Figure  C-6)  are  not  included  in 
this  extract  from  the  documentation  of  IDACASE. 


D.  THE  INPUT  ROUTINE  INP 

The  IDACASE  input  routine,  INP,  allows  flexible  data  in¬ 
put,  as  described  above,  by  means  of  a  complex  FORTRAN  subrou¬ 
tine.  While  this  routine  utilizes  special  capabilities  of  the 
CDC  6400,  it  can  be  (and  has  been)  converted  to  run  on  other 
computers.  Routine  INP  has  been  utilized  and  documented  at 
IDA  in  conjunction  with  its  inclusion'  in  several  models  (in 
particular,  see  IDA  Paper  P-1409^ ) . 

^Anderson,  L.B.,  P.A.  Frazier,  M.J.  Hutzler,  and  F.J.  Smoot. 
Documentation  of  the  IDA  Tactical  Air  Model  (IDATAM)  Computer 

Program.  IDA  Paper  P-1409,  Institute  for  Defense  Analyses, 
Arlington,  VA. ,  February  1979. 
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1.  The  INP  Subroutine  and  Table  IVARQ 


A  table  with  information  on  input  variables  is  included 
in  INP  to  allow  for  flexible  input  format.  This  table  provides 
the  routine  with  basic  input  variable  information  needed  for  in¬ 
put  processing  in  FORTRAN  language.  This  information  includes 
variable  name,  type,  dimensions,  and  common  block  location.  The 
table  is  stored,  with  DATA  statements,  in  array  (IVARQ  (JV ,  IND ) 
where  JV  indicates  a  variable  (JV  =  1  for  the  first  variable 
in  alphabetical  order,  2  for  the  second,  etc.  )  and  IND  is  the 
index  for  types  of  information  about  variable  JV,  as  shown  in 
Table  C-l .  Figure  C-7  shows  sample  COMMON  statements  with 
corresponding  DATA  statements  describing  the  input  variables 
in  common  necessary  for  INP  operation. 

2 .  Changes  in  Input  Variables 

The  need  to  provide  INP  with  a  table  of  information  about 
input  variables  requires  production  of  a  new  IVARQ  table  when¬ 
ever  changes  are  made  in  the  (1)  number,  (2)  names,  (3)  dimen¬ 
sions,  or  (4)  order  in  common  of  input  variables.  The  informa¬ 
tion  in  IVARQ  (DATA  statements)  must  correspond  to  specifications 
for  input  variables  which  are  stored  in  blank  common,  as  shown 
in  Figure  C-7.  A  change  in  an  input  variable  (in  blank  common) 
will  necessitate: 

(1)  Producing  a  new  set  of  IVARQ  DATA  statements,^ 

(2)  Replacing  old  DATA  statements  for  IVARQ  in 
in  INP  with  new  DATA  statements, 

(3)  Changing  line(s)  in  common  statements  in  the  many 
routines  containing  the  blank  common  block. 

A  complete  new  set  of  DATA  statements  is  usually  necessary 
(and  simpler)  because  most  changes  will  affect  IVARQ  data  for 
more  than  one  variable.  For  example,  a  change  in  dimension 


1-Make  sure  that  the  first  IVARQ  DATA  card  subscripts  agree 
with  IVARQ ' s  dimension  (256)  in  INP. 
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Table  C-l.  INPUT  VARIABLE  INFORMATION  STORED  IN  INP 


Storage 
Locat  i  o  n 


Contents 


Example 
(for  JV  =  10) 


IVARQ ( JV  ,  1  ) 


Alphanumeric  name  of 
variable  JV 


6HCEANG 


IVARQ ( JV , 2 ) 

I VARQ ( J V  ,  3  ) 
I VARQ ( JV  ,  4  ) 


First  d  imens  ion  of 
variable  JV. 

Second  d imen s ion . 

Third  dimension. 


14 

0 

0 


I  VARQ ( J V , 5 ) 


IVARQ ( JV , 6 ) 
IVARQ ( JV , 7 ) 


I VARQ ( J V , 8  ) 


Common  location  for 
first  value  of  variable, 
compared  to  beginning 
of  blank  common  (NEPD) 
at  location  0. 

Zero,  for  IDACASE. 

Digit  1  gives  variable 
type  (1  =  integer, 

2  =  real  ,  4  =  a  1 pha  ) . 

Digit  2  is  0  for  IDACASE 
[but  not  necessarily  for 
MEDMOD]. 

All  but  last  digit  give 
common  location  for  last 
variable  value.  Last 
digit  gives  number  of 
dimensions . 


269 


0 

20 


2831 
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— MOCA»HOCVFL»HOOA (100) *Hoi)a01 frtOOAOa iHOOAOO >HOOVEU - 

COMMON 

IASMT(IOO) ,IaTqTS(100) ♦IOCKTS(40) * IOgUFC* ILNCHR (40) » 

— i - 

d. 

- COMMON 

ITGTS  < 100 ) , 1 2D NOS 

— jact jactso <a )  *jAMM0(gA)  iJCONrm^o)  *of-rtso<6>-* - 

1 

JLQCSO  <A0) t JNUNSO (40 ) t JSALVO (40  / ♦ JSCCi <25/ t J5C50  >  * 

— d - 

COMMON 
- COMMON- 

MAX0£T*MAXHlT*MAXKIL(14) 

— NaSHSZ (5*3)  »NBP*NCASCiNOS*NlDNOStM4DMNR»NIOFOS*HiOFFI»* - 

1 

NMSLSQ (6) *NPPNtNRNOCl (5) fNflNOSO (6/ * NS t NSC I fN55*N«>oUt 

- - 

COMMON 

PKASM (40  *3) »PKCUM(l0»2»5> .PKFCMM3) tPKFMKR (4*3) « 

— i 

COMMON 

R0ETSK<7»10)  *RMAXS0<6*3»  «RMAX5K  (4-0  •  tRMlNCI  (5*2)  » 

- 1 - 

d 

RlMNOl (9*5*3) tRlMNO? (9*5*3) *RlMN03 (9,5*3) » 

— 3 - 

■  NiMrtOt  If  t  S  »3  J  »KX  MX  02  (f ’5*3/  vhx^^oj.'^  w5"*3*  * 

R2MN01 (9*5*3) *R2MN02 (9*4*3) *R2MN03(9,5»3> * 

—“3 - 

COMMON 

|AMVEL(40) *SECTMN(7«8) *5ECTNX (7*0) *S£QPAR (2*2*2) * 

d 

- COMMON 

"  Cj  *  fc  *  ?  5n  ANQ 1  (14  7  t  jHANQc  *14/  /  i  «JFvTCl»  “ 

SSPKSO (6*3) 

- TocTIg (40) *TOLINP(100) *T0tPAR(3»5) - 

COMMON 

VqUNSq (6) *VRN0Cl<5) 

(Continued) 

Figure  C-7,  SAMPLE  COMMON  AND  DATA  STATEMENTS 
DESCRIBING  INPUT  VARIABLES 


A-31 

(C-3  2 ) 


UIHGnS'ION  IVARq  (256*8) 

UATA  »/-i53/rfrIVAft<a<I*l)  >Ia- lS4*gSqi  >/  1<»3*&HZZZ2ZZ/ 

UATA<IVAR0<  1*10 *K«l»8)/6HAEN0BR»  7*  S*  0*  li 

UATA  ( IVAR9< - 3>K)  tK^l  *8>/6HAH00A  ■* - in - 9*- On - 36-*— 

UATA ( IVARQ (  3»K) tK«li8)/6HANGJMN»  40*  0*  U«  37. 

uATA(IVARQ< 4*K)  *Ka-t*8) /6HANOUMA* -4O*-  0,-0* 77 r 

OATA<IVAR9<  5*K) *Kal *8) /6HASMROL* lOO*  Q,  0*  117* 

UATA  ( IVArQ <  6*K) *Kal ,8)/6HC8RlC! *  25* - 0*  On - 517 1-  ■ 

DATA(IVArQ<  7.K)  *K»1*8)  /6HCBR2CI »  25*  0,  0*  242* 

UATA  (  1VArQ-( - 8*K>-»^*t-*-8>/6HC0WWOS*  1* - 0*  9* - 547*— 

UATA (IVArQ (  9*K) *Kal*8)/6HCDWNR  •  1*  0*  0*  268* 

0ATA(IVARQ<  19**>*Kal,8>/6HCgAN8  *  14* - 0*  9* - 269* 

OATA(IVAR«(  11*10 *Kb1,8>/6HCERANG*  14*  0*  0*  283* 

UATA  < lV'4R9t""12  |Khf  K»l,r8t7‘9HCW4XCI  * - 5n - »*■  -  6* - 297 ■»■■■ 

UATA ( IVArQ <  13*10 *K«1 *8) /6HCMINCI *  5*  0*  0*  302* 

UATA  <  IVArQ  <■  14*W)*Wal-*8>/6HC0PFD9^ - 1*  »*  0* - 397* 

UATA<1VAR<3<  15*10  *K»1  *8) /6HC0FFR  •  1*  0,  0*  308* 

UATA<1VAR<3<  l6*K>*rt»ln8>/6HC0UR - .  tOO* - 0*  0* - 312* 

OATA<1VAR<3<  17*10  *Kal *8) /6HCWAVE  •  3*  0*  0,  3O9* 

UATA<1VAR<3<  18*K) *X»l*8)/6H0gTHINt  7i - 9*  0*  413* 

UATA<1VAR<3<  19«K)  *K»1*8)/6H0IS8P  *  7*  5*  0*  419* 

UATA<lVAR<3-<  30**)  »  *  8 )  /  6H0ISSG1.  * - 7-*-  10*  0* - 464-* 

UATA<1VAR<3<  21*K)  *Kal*8)/6H0RL0SL*  1*  «*  0,  524* 

UATA<1VAR<3<  22*R>  »Ka.l,8>/6H0RNGHN*  3*  0*  9* - 525*-- 

UATA<1VAR<3<  23»K)  *Ka:it8)/6H0RNGMX*  3*  0*  0*  528* 

UATA<1VAR<3<  24,K)-*-K*l-r»)-/6HOgCA  *  lr  9*  9* - 531* 

UATA<1VAR<3<  25*K)  *Kal(8)/6H0S0VEL*  1*  0,  0*  532* 

UATA<1VAR<3<  26*10  *Ka-l  *8)  /6H0SLKT5* - in - 9*  6* - 533*  - 

UATA<1VAR<3<  27,K)  *Kal,8)/6H0SSVEL*  1*  0*  0*  534* 

UATA<1VAR<3<  28  *  K)-*Ka‘l  »8-)-/6H0T  AFTR*  ■  »0* - 9*  V* - 535* 

UATA<1VAR<3<  29*10  «K«1  *8)  /6H0TBRS0*  6»  9*  0*  57s* 

UATA<1VAR<3<  39*tO-*«al-*efr-/6HOTBSA4.r  *9n-  9-*— «-* - 581* 

UATA<1VAR<3<  31*K)  *Ka:l*a)/6H0T0ET  •  1*  0*  0*  621* 

UAT-A-(-lVAR<3<  aa*R3-*Kal»8>V6HOTDLCIr  5* - 9*  8* - 623*— 

UATA<1VAR<3<  33*M  »«■!  *8)  /6HOTOLSO*  6*  9*  9*  627* 

UATA<IVAR<3<  34*K)  *Ka~l  *$)  /ftHOTHOCl  * - <rt - 9*— 9n - 633-*- 

UATA<IVAR<3<  35  *K)  *Kal  *8)  /6H0TIUCI  *  5*  9,  U*  639* 

UATA<IVAR<3<  36*10  *Kal  *8)  /6HOTILSB* - fr*~  9,  8. - 644* 

UATA<1VAR<3<  37*K)  *Kal*8)/6HOTUOAO«  24*  0*  0*  659* 

U3VTA<1VAR<3<  38*tO*K*K*8>/6HOTLOSO* - <r* - 9,  9* - 674* 

UATA<1VAR<3<  39*K) *Kal*8)/6H0T0VRL*  49*  0*  9*  680* 

UATA-<-IVAR<3(  49,(0  *Kai»8W6H0TTRAN*  49* - 0*  9* - 720, 

UATA<1VAR<3<  41.K)  *Kal*8)/6H0TTR6O*  49*  0*  0*  760* 

tM-TA-44VARQ.fr  43  *  XfrnKa-l  *8) /6HETRNUT * - 2* - 0,  0, - 899*- 

0ATA<1VARQ<  43*10  *Kal *8) /6HETRXUT*  2,  0,  0*  802* 

U AT A"frl-V ARQ <-  ■  44  *  K)  **al ,8) /6Hf AHTTK* - 1* 9*— On 894*- 


0*20 

6*29 

0,20 

0*29 

0*20 


362/ 

■W 

771/ 

i-t-71/- 

2171/ 


6*39 


■e»ai/ 


0,20 

■0*29 

0,20 


2671/ 

■2691/ 

2691/ 


6*39 


0*29 

0,29 

0,20 

0*20 

0*20 

-9*39 

0*20 

-9*39 

0*29 

9*29 

0*29 

-6*39 

0*20 

0*29 

0*20 

-0*39 

0*29 

0*29 

0*29 

■0*20 

0*29 


2931/ 

2971/ 

3021/ 

3071/ 

3091/ 

3091/ 

4121/ 

3121/ 

■4161/ 

4542/ 

6343/ 

5251/ 

5281/ 

5311/ 

■5021/ 

5331/ 

5341/ 

5351/ 

-5756/ 

5911/ 

6211/ 

6221/ 

■5276/ 

6331/ 


6*29 

0*20 

■6*29 

0*29 


6391/ 

6441/ 

■6594-/ 

6741/ 


6r29 

0*29 

6*39 

0*29 

■6*39 


-6994/- 

7201/ 

7696/- 

8001/ 

8oai»- 


0*29,  8041/ 

0*39*  ROS1/ 


Figure  C-7.  (Continued) 

A- 3  2 

(C-33) 


DATA ( IVArU < 

DATA<1VAR<J< 

,  1  a  T  K  f  TUinQ  / 

45, X) 

46tK) 

A  -T  X\ 

fK*l 

,8)/6HF<.TM0fi 

,8) /6HFRMN0V 

-  a  \  Jr  u<5  <  or  cn 

— 

40  * 

£-  - 

0,  4^- 

0«  Of 

806-,— 

806  , 

0,24*- 

0,20, 
— ft  .  '’Ot 

— 8ft60/- 

8461/ 

j 

qOMAvAQ— 

09MAY80 

nftMAYao 

- 167- 

168. 

lfc*i 

data<ivar«< 

.  ,  *  T  A  /  T  \l  A  m/.\  i 

48, K) 

Art  .  v  \ 

»K»l 

*8) /6HGBR1S0 

40, 

0 

g 

Ot 

n  - 

852* 

0,20, 

a  ^ 

U  JU  4* 

8921/ 

09MAT80 

170 

1*1 

UATA<1VAR<J< 

DATA  <  IVAr4*- 

50,  K) 
-5000 

*K*1 

IU*  **  gMwflnt  if) 

,8) /6HG2MNSO 
,0) /6HQ2MXSP 

▼ 

40, 
-44, — 

0 

-±T 

0, 

0-r— 

932# 

972,- 

0,20, 

0,24, 

X  r 

9721/ 

U  *  nil 

09MAT80 
09MAY80 — 

172 
-  l-T±- 

UATA<1VAR<J< 
DATA ( 1 V  AR<J < 

DATA (IVAr4< 
UATA<IVAr4-<- 


52,  K) 
53  ,(0 

54,10 
55, K) 


K-l 

8a+ 

K»1 

*•* 

K»1 

6*9 

K»l 

6*9 


8) /6HH0CA 

8)/6HHeevet 

8) /6HHO0AO1 
)  /6HH00AO2- 

8) /6HH00AD3 
0)  /6MIIB0A - 

8J/6HH00VEL 
8)  /6HI A5H-T— 

) /6H I A  TGTS 
8>  /  6HIPCK-T9 


1 

- i- 

1 

- 9 

l 

tft4 

1 

964 

100 

-44 


1012, 

1013, 


0,20 
-ft-,  go 


10131/ 

10141/- 


09MAY80 

09MAY80- 


-076- 


1114, 

1115, 

1116, 
1014, 


0,20 
ft,  go 


11151/ 

-mfri-/- 


09MAY80 
09  MAY  80- 


l7ft 

-±49- 


UATA<IVAR<J< 
DATA  <  IVAR*J< 


56,  K) 

57, (0- 

58,  K) 

59,  K) 


0,20 
ft,  go 


11171/ 

11141/ 


09MAY80 

09MAV-86- 


1?8. 

-*4*- 


UATA (IVAR<J< 
DATA ( IVAR<J< 

DATA!  i  var<j  ( 

L)ATA(1VAR<0(- 

UATA<IVAR<J< 

UATA<1VAR<J< 

L)ATA(  1VAR*J( 
DATA<1VAR<J0- 


1117, 

1118, 


0,20 

-Or04 


11181/ 

12191/ 


09MAY80 

Q9MAY80- 


180 

-0*4- 


T 

60,10 
61, K) 

62,10 

63,(0 

64.10 

65, (0 

66, (0 

67.10 


1218, 

1318, 


0,10 

-4r04 


13181/ 

13991/- 


09MAY80 

09HAY80 


182. 

-083- 


K«l 

6*+ 


8J/6HIDCUFC 

8)/6HIPT8A0- 

8)/6HlLNCH« 

9>/6HlMSAfay 

8) /6HIP0UT 
8)/6MlRRS0— 

8)/6HISFRMS 
8) /6HISH1RT 

8) /6HITGTS 
8)  /6HIZDN9S- 

8)/6HlZD«*N(» 

81-/6  M-JffCT  StT 

8) /6HJACT 
8) /6MJAMM9 


1 

— 0 

40 

— i- 

1 

— 4 

1 

-14 

100 
— 9 


1358, 

1418, 


0,10 

0,10 


13591/ 

um-/- 


09MAY80 

09MAY80- 


18* 

-Wo- 


1359, 

1399, 


0,10 

-ftr44 

0,10 

0,10- 

0,10 

-ftr44 

0,10 

-ftr44 


13991/ 

UOftl/- 

14011/ 
•1 4fr2-l/- 

14031/ 

14171/ 

15191/ 

-1 5  gfti/- 


09MAY80 

09MAY80- 


1$6 

-487- 


UATA<1VAR<J< 

UATA<1VAR<J< 

DATA  ( 1  VAR<J ( 
uATA-<1VRr4<- 

UATA<1VAR<J< 
L)ATA  ( IVAR<Jfr 

UATA<1VAR<J< 

UAT*<OV*R<J-<- 


Kal 

6*9 


uoo, 

140-1-r- 

1402, 

-+4ft9-r- 

1419, 

1519-r- 

1417, 
-156  ftr- 


09MAY80 

09MAY88- 


188 

-489- 


68,10 

■69,(0 

70,  (O 
71,191 

72,  JO 

73,  K) 

74*10 

-7500 


09MAY80 

09MAY80 


190 

-490- 


09MAY80 

09MAY8O- 


192. 

~±4*r 


1 

— 6 

40 

-24 

40 

—8 

40 

-44 

40 

-25 

40 

-44 


0,10 

0,14 

0,10 

-6,-44 


14181/ 

-13664/- 

15601/ 

15941/' 

16301/ 

16361/ 

16761/ 

17161/ 


09MAY80 

09HA-Y86- 


194- 

-445- 


UATA  ( 1VAR<J  ( 
DATA  ( i-VAR(i-(- 

UATA ( i  var<J ( 

DATA  <  lVRft4* 

UATA<IVAR<J< 
DATA  ( 1-VAr4-<- 

DATA  ( 1VAR<J  ( 
UATA<1VAR<J< 


K-l 

6*9 


1520, 

1566, 

1590, 

1630,- 

1636, 

1676, 

1716, 

1798* 


hr 

0,10 

-ft, 94 

0,10 

0,14 

0,10 
-ft,  1-4 

0,10 

-9r44 


09MAT80 

09MAY80 


146 

-19?- 


76,  K) 

77, (0 

78,  K) 
-79,(0 

80,  K) 

81 , (0 

82,  K) 

83, (0 


K»l 

6** 

K»1 

8** 


8J/6HJC0NTR 

8>/6HJFRTS0 

8) /6HJLOCSO 
81 /6HJNLNSO 

8 ) /6HJSACVO 
8)-/-6M89CCl — 

8) /6HJSCSD 
'8)-/6H-J3eSF — 

8) /6MJTYPCI 
0 ) /6HJ7YPSU 

8J/6HMAXDET 
8) /6MMAXH1T 

8) /6HMAXK1L 
■8T/6HNA3HSZ 


OrMATBO 

09MAY80 


198 

099- 


09MAY80 
■  09MA-Y  80- 


20o 

-24*- 


K»l 

6-* 

K»1 

6*9 


17561/ 

17811/- 


q9maysq 

068*780- 


202 

i48r 


UATA<IVAR<J< 

UATA<1VAR<J<- 

uaTa ( 1VAR<J ( 
DATA ( IVAR4 ( 

DATA <IVAR<J< 
DATA < 1VAr4 < 

UATA<1VAR<J< 
DATA ( IVAR4 ( 

dATA(1VArQ( 

D*TAtlVAR4<" 


1781, 
1981 -r- 


18211/ 

08870/ 


09MAT80 

09HAY80- 


20< 

-248r 


84,(0 

■8500 

86,(0 

■8700 

88,(0 

8900 

90, K) 
9000 


25 

-44 

1 

— 4 

14 

—5 

1 

— O 


1861, 

1886, 


if 

0,10 

-0rO4 

0,10 

0,10 

0,10 

-ftr04 

0,10 

-ftrOft 

0,10 

9,1ft 


18961/ 

09260/- 


09MAY80 

09MAY80 


246. 

-247- 


K»1 

6*9 


1926* 

-19274- 

1928, 

19*2,- 

1957, 

1958, 

1959, 
- ftr- 

1960, 
-1961,- 

1962, 

1963, 


19271/ 

19281/ 

19421/ 

19372/- 

19581/ 

-14399/ 

19601/ 
08/- 


09MAT80 

09MAY80 

09MAT80 

99MAY80 

09MAT80 

-048*766- 

09MAT80 

0986786- 


208. 

14*- 


K«1 

8»* 

Kal 

8*9 


2iO 

40- 


8) /6HN8P 

8>-/6MMCA3e' 

8) /6HN0S 
a> /OMNgRO — 

8) /6HNT0N0S 
8)/6HNTD*NR 

8) /6HNI0F0S 
8> /6HMT0FFH 

8J/6HNMSLS0 
8)  /ariMPRM - 

8) /6HNRN0CT 
8) /eHNWNOSO 


21 2. 
48r 


DATA(IVArQ( 
DATA ( IVArQ ( 

DATA(IVAR4( 
DATA ( I VAR4 ( 

DATA ( IVARtt ( 
DATA  (  I  VAR4(- 


92,  K) 
9500 

94, (0 

95, (0 

96*10 
97, K) 


K»l 

8»t 

Kal 

*a+ 


2l4- 

-24-5- 


0,10 

-ftr94 

0,10 


19611/ 

19a21/ 

19631/ 

19640/- 

19701/ 

19711/ 

19761/ 

19829/' 


09MAT80 

09MAY80 


216 

-247- 


Ka  1 
8*0 

Kal 

8a* 

Kal 

8»9 


-ftrOft 

0,10 

»,1» 


09MAY80 

09HAY8ft 

09MAY80 

09MAY06 

09MAY80 

ft9MA48ft- 


218 

4*- 


UATA(1VARU( 
DATA  t  t*AR4  < 

DATA<1VAR<J< 

DATA<IVAR<J< 


98,  K) 
9900 

100, K) 

*4000 


0 

-ft 

0,  0 
4, — ft 


1964, 

1976, 

1971, 

1976, 


rr 

0,10 

-ftrOft 


22o 

-22*- 

222. 

223 


Figure  C-7.  (Continued) 

A-33 

(C-34  ) 


DATA ( I  VARU ( ]03«K) 
UATA(IVArU(1Q4,K> 


81/6HMSGI 

8) /6HNSSD 

/&HN3S 


1983 


+0 


-19841/  3OMAY8Q - 324- 


1985 

1984 


19861/ 

-H8S1/ 

19911/ 

-49471/ 

19831/ 

-49981/- 

20031/ 

21233/ 


09MAY80 

Q9HAY&0 


225- 

-^Xt 


Ur- 

227 

-34a- 


l)ATA(Ivar«(105.»O 
UAT»<  I  VArU  < 106,K) 

UATA(IVArU(107,K> 

UA+A+1 VARU(  108, K) 


8) /&HNSYSCI 
8 ) /6HNSYSSO 


1986 

499+ 


09MAT80 

■09MAY80 

09MAY80 

-998AY80 

09MAY80 

09HAY80 


8 ) / 6HNS 
8+/6HWTRIAL 


1982 

-499+ 


229 

-334- 


UATA  ( 1VARU (109«K) 
UATA  <  ivar4<  110,X) 


8) /6HNUMVAV 
8) /6HPKASM 


5 

■+4 


1998 

-3444 


10 

44 


231 

-433- 


UATA  ( I  VARU < 111 ,K) 
uATA  <  1  VArU <  1 13 ,  A? 


8) /6HPKCUX 

8>/6HPKFC*« 


10 

—3 

4 
—3 

5 

—5 


2123 

-2233 


20 

43 


22233/ 

-42264/ 

22382/ 

-+2842/- 


09MAY8Q 

49M6Y80 


233. 

-43a- 


L)ATA  ( I  VARU  ( 1 13 «K) 
uATA!  IVArQ(11A,K) 


K»1 

K*l 


8>/6HPKFMKH 
■81-/6HPWS 


3 

-4A- 

0 

—4 


2226 

-2238 


20 

4 


09MAY80 

■49MAY80 

09MAY80 

09MAY80 

09MAY80 

-09HA-Y84' 

09MAY80 

69MAY80 


23b 

-34*- 


UAT  A ( I  VARU ( 1 15*K) 
t>ATA  ( 1  VArQ4116tK) 


8 ) /6HPRUNPW 
8 ) /6HPRUNS7 


2280 

-2286 


22851/ 

-22941-/ 

23301/ 

-2*002/ 

24182/ 


237 

134- 


UATA(lVARU(il7,IO 
l>A  TA  ( I  VARU-(  1 18  >  )0 

UATA  ( I  VARU ( 1 19,K) 
-tM-T-A-<lVARU(l30»K> 


K«1 

+»4 

K»1 

**+ 


8) /6HPTAT0I 
e>/6HR0ETS« 

8) / 6HRMAXS0 
84/6HRMAASW 


44 
— 7 


0 

-44 

3 

—4 


2290 

-2334 

2400 

-2418 


20 

24 


-e» 

239 

-244- 

241 
142r 


6 

-44 


UATA(lVARti<121tK) 

UATA ( I VARU ( 122.K) 

t  K*1 
♦  K»l 

/6HRMINCI * 
/fiHRM  f  N5n  i 

5# 

6  m 

2# 
Q  . 

Of 

2458* 

0,20, 

a  ->A  - 

24682/ 

3  A  -A  4.  »  J 

09MAY80 

A<Su  A  VQn 

243 

q!  a. 

DATA ( I  VARU ( 123,K) 
■t>ATA(  IvAbU  ( 1  24  »K) 

r  w  4 

tK«i 

w  r  f  yi  IIMl  4  m  JIJ  T 

8>/6HRmINSk» 

40  f 

— 1  ■ 

Of 

0  A 

Of 

2474  f 

ne  n  a 

OftWt 

0  *20 1 

*  3  A 

-e474i/- 

2S141/ 

8C  l  K1  i 

09MAY80 

■  OUAWll  A 

— 244- 

246: 

Oix 

UATA<IvArU< i25tM 

,K«1 

»»  f  Ul  Jfl  I  V 

/6MR0FFCI • 

1  F 

5, 

Of 

n 

Of 

!=■  . 

2515, 

0  *  20* 

-c5T5i/- 

25201/ 

09HAY80 

-Ail  A  y  u  a 

- <4» 

247 

^  #  f  w  ,  [  w  v  f  v  \  # 

UATA (XVArU(127,IO 
UATA  (  lVApU< 

T'\"i 

fK*i 

«K»-| 

8)/6HRlMNOl» 

"10* 

9 1 

Sf 

3  F 

2620  f 

—  0  f COf 

0,20, 

.  n  3  A 

t6?03/ 

27553/ 

A  A  A  A  A  J 

09MAY80 

aAuA  v  a  a 

— 24» 

249 

UATA ( I VARU ( 129«K) 
DATA  MVAftU  (130‘*K) 

•  A 

*K*1 

V  /  *  unn  ^  n«twc  f 

8) /6HRTMN03* 

7  F 

9  • 

n 

5f 

u  

J  F 

3 1 

'  C  fW? 

2890, 

nA'Se 

0,20, 

a  in  . 

30253/ 

09MAY80 

/%  rt  u  4  v  a  a 

— 258- 

251 

UATA ( IvArQ (131 ,K) 
data  i  <  13-5  iK> 

tK*l 

w l r onWTnAU ! t 

8) /6HR1 MA02 • 

9* 

5  F 

5 

3* 

“V. 

3160  f 

0,20, 

a  3  A  . 

■31603/ 

32953/ 

3  4a  a  A  3  i 

09MAT80 

Adui wan 

— 25^- 

253. 

UATA ( I  VARU ( 133»K) 
DATA  (-1  VArU  (  134  tK) 

^  4 

♦  K*l 
»K<4 

w / f  unn i nnujf 

8)/6HR?MN01t 

9  F 

9t 

rx  . 

5f 

ft. 

jr 

3  F 

■a  - 

3430, 

0,20, 

n  “)rt  . 

35653/ 

3  a  a  A  3  i 

09HAY80 

Adu A  V  Q  A 

255. 

UATA ( I  VARU ( 135,K) 
uATA ( 1VARU ( \36,K) 

tK»l 

w  »  '  ynnCnnUC! 

8>/6HR?MN03t 

9 1 

5f 

i . 

3t 

i. 

3700, 

.  -3X1  3K  ^ 

0,20, 

a  3  n  _ 

38353/ 

3  A  —  A  3  J 

09HAY80 

aqua  Van 

257 

3C  n. 

uATA(IvArQ(137,K> 
-t»ATA  (  I V ApQ-(  i3fl.K) 

f  K*i 

v  /  7  Ui  Tn  t  n^u  1  ▼ 

/6HR2MX02* 

9t 

5  F 

3 1 

■a 

3970, 

a  r  ait 

0,20, 

a  -1 A 

41053/ 

A.  A  A  **  i 

09MAY80 

A  A  A  A  4  W  Q  A 

— 

259 

UATA ( I  VArU (139,10 
-ti-ATA  ( 1  VARU  (140  ,tO 

•  K*i 

w<  ^  OnPT^nAU  J  1 

/6HSAMV6L* 

a0» 

-  7  7 

0f 

u 

Of 

A  - 

4240  f 

i  non 

0,20, 

n  A  A  . 

42801/ 

09MAY80 

>  Q  U  |  V  Q  n 

— 269 — 

261 

UATA ( I VARU ( } 4l ,K) 
-U»TA< 1  VARU  <  142  ,)Q 

*■ 

»K»1 

8I/6HSFCTM*. 

7 » 

?  T 

8  F 

V  ^ 

Of 

*3.^. 

4336, 

0,20, 

A  3A  - 

43362/ 

43922/ 

A  A  A  A  3  / 

09MAY50 

aqua v  a  a 

- 26^r 

263. 

-5^  - 

UATA(IVARO(143,K) 

DATA ( iVApy < l44iK) 

tK«l 

/6HSEQTES* 

2» 

Of 

A  

Of 

4400, 

0,20, 

A  A  A  _ 

44021/ 

09MAY80 

4  AU  A  WO  A 

— 264- 

266 

UATA ( 1 V  ARU (145*10 
uATA(lVARQ< 114,)Q 

*  «■* 

u  /  /  um Jnmuj i  f11 

8)/6HSHANG?t 

i  ^  * 1 

1  A» 

Of 

0  ■ 

Of 

A  * 

4416f 

a  x  3  A  . 

Of20f 

a  3  rt  - 

44 161/ 

44301/ 

1  X  .  A  1  J 

09MAY80 

Adu4Van 

— 556- 

2§7 

A  Z  a 

UATA( IVARU(1A7,K) 
■DATA  <  l-VAft^-<  I-A-6-tK) 

fK*l 

,K«1 

W  i  r  yvfwn^VIU  I  F 

8 ) /6HSKVEL  ♦ 

■  l 

0* 

1 . 

0« 

*il 

4444* 

.  A  A  A  C  . 

0,20, 

A  3  A 

44441/ 

44451/ 

09HA YUO 

«Au, Van 

— 26#v 

269 

UATA< IVARU( 149*10 

7  A 

tK*l 

«  »  /  IJM  JjrUJIfV 

8)/&HT0CTIE» 

“  T  “ 

40* 

Of 

A 

Of 

446 3 1 

iCAT 

0,20* 

44632/ 

45031/ 

09HAY80 

-Ann  y  Q  n 

— 279 

271 

»»  *  y  *  »  ”  ^  ^  ^  a  w  v  f  rw 

UATA<IVARU<151,K) 
PAT A  < 1 V  AaU (  iSP.K) 

tK.l 

Uf  /  uni  UL I J 

8)/6MT0LPAP, 

1  0®  » 

3 1 

2f 

Of 

4603, 

OftiO'r 

0,20, 

46031/ 

46092/ 

09MAY80 

— 272.- 

2?3 

UATA ( IVArU ( 153,(0 

F  9 

fK*i 

w  /  f  gnf  yUI"Ju“ 

/6HVRN0C1 * 

—"Of 

5f 

Of 

Or  1 

Of 

FO0“f 

4615f 

— 9i2B» 

0,20, 

46151/ 

46201/ 

09MAY80 

— 27» 

2?5 

Figure  C-7.  (Concluded) 
A-34 
(C-35) 


for  one  variable  changes  storage  locations  for  all  variables 
following  in  common. 

Producing  and  punching  the  information  for  the  IVARQ  DATA 
cards  is  possible,  but  tedious.  A  program  COMM  exists  which 
takes  the  cards  of  a  blank  common  block  and  produces  the  corr- 
sponding  set  of  DATA  statements.  The  changed  COMMON  cards  and 
new  DATA  cards  then  can  be  introduced  to  IDACASE  (in  a  single 
update  run  for  IDA's  program  library). 

There  exists  at  IDA  a  more  automated  procedure  for  accom¬ 
plishing  all  these  steps  with  a  single  computer  run  starting 
with  the  changed  COMMON  cards.  The  procedure  utilizes  program 
COMM  and  a  variety  of  updating  procedures. 

3 .  Incompatibilities  for  Machine  Conversion  in  INP 

The  INP  subroutine,  as  it  exists  in  IDACASE,  uses  capa¬ 
bilities  of  the  CDC  6400  not  available  on  many  other  computers, 
although  this  is  a  FORTRAN  subroutine.  The  main  problems  for 
conversion  of  INP  to  other  computers  are: 

1.  The  ENCODE/DECODE  statements  for  memory  transfer  of 
data, 

2.  The  use  of  larger  CDC  word  size  (60  bit  words  con¬ 
taining  up  to  10  characters), 

3 .  Character  to  integer  conversion  (probably  not  a  con¬ 
cern  for  IDACASE  as  more  than  99  cases  are  required 
before  conversion  becomes  necessary). 

A  version  of  the  INP  subroutine  is  operational  on  a  Honeywell 
6000  series  computer,  indicating  the  possibility  of  conversion 
and  existence  of  a  non-CDC  version  of  this  routine.  It  should 
be  noted  that  INP  only  reads  inputs;  it  does  not  affect  the 
calculations  made  by  the  model.  Therefore,  a  potential  user  of 
IDACASE  who  does  not  want  to  convert  INP  to  another  computer 
can  replace  INP  with  an  input  routine  appropriate  for  the 
user's  computer. 
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APPENDIX  B 


TABULAR  GUIDES  TO  THE  MEDMOD  COMPUTER  PROGRAM 

This  appendix  consists  of  two  parts.  The  first  part 
introduces  (and  explains,  where  necessary)  the  tables  pre¬ 
sented  in  the  second  part.  The  reason  for  grouping  the 
tables  together  in  the  second  part  (rather  than  interspers¬ 
ing  the  tables  and  the  discussions  concerning  them)  is  to 
make  it  easier  to  refer  to  these  tables  when  examining  the 
MEDMOD  computer  program.  That  is,  these  tables  are  primarily 
designed  to  be  referenced  as  guides  to  the  MEDMOD  computer 
program,  not  just  to  be  read  at  one  sitting  before  looking 
at  that  program. 

A.  INTRODUCTION  TO  THE  TABLES 

Table  B-l  gives  an  exhaustive  list  of  all  program  seg¬ 
ments  (overlays,  subroutines,  and  functions)  defined  in  the 
MEDMOD  computer  program  in  the  order  in  which  they  appear 
in  that  program.  This  table  not  only  summarizes  informa¬ 
tion  that  can  be  found  by  looking  at  each  segment  individ¬ 
ually;  it  also  lists,  for  each  program  segment,  all  the  other 
program  segments  that  call  that  segment. 

Since  the  segments  are  listed  in  Table  B-l  in  the  same 
order  as  they  appear  in  the  code,'  one  can  also  use  Table 
B-l  to  find  the  location  of  each  program  segment  in  the  com¬ 
puter  code.  To  assist  in  doing  this.  Table  B-2  lists  the 
program  segments  of  MEDMOD  in  alphabetical  order  and  gives 
the  segment  number  (i.e.,  the  position  in  Table  B-l)  of 
each  program  segment. 
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Table  B-3  lists  each  labeled  COMMON  block.  It  lists 
the  program  segments  In  which  each  of  these  labeled  COMMON 
blocks  appear,  and  it  lists  and  (perhaps  most  important) 
defines  each  variable  that  appears  in  each  of  these  labeled 
COMMON  blocks. 

Table  B-4  gives  an  exhaustive  list  of  those  inputs 
that  are  resource  variables  in  MEDMOD.  Index  limits  and 
definitions  of  these  inputs  are  also  given.  These  inputs 
(and  only  these  inputs)  are  incremental  inputs  in  Subroutine 
TIMET. 

Table  B-5  displays  which  major  subroutines  of  MEDMOD 
use  which  of  these  resource  variables.  Note  that  all 
resource  variables  are  inputs,  all  inputs  are  in  blank 
COMMON,  and  only  overlays  and  major  subroutines  of  MEDMOD 
contain  the  blank  COMMON  block.  Thus,  no  subroutines  other 
than  those  listed  in  Table  B-5  directly  reference  these 
resource  variables. 

Table  B-6  defines  and  gives  other  relevant  informa¬ 
tion  concerning  the  major  indexing  variables  used  in  MEDMOD. 

Among  other  things.  Table  B-7  states  which  program 
segments  use  which  limit  variables  in  MEDMOD.  Tables  1 
through  11  and  13  of  Chapter  II  list  all  the  inputs  except 
limit  inputs  that  are  used  by  each  major  subroutine;  thus. 

Table  B-7,  which  gives  the  limit  inputs  used  by  each  major 
subroutine,  completes  the  categorization  of  inputs  to  the 
major  subroutines  of  MEDMOD  using  them. 

*  Most  of  the  input  parameters  to  MEDMOD  are  used  in  exactly 
one  of  its  major  subroutines.  Table  B-8  lists  those  input 
parameters  that  are  used  in  more  than  one  major  subroutine. 
Thus,  special  care  should  be  taken  in  preparing  data  for,  or 
altering  the  code  involving,  any  of  the  parameters  listed  in 
Table  B-8. 
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MEDMOD  contains  no  automated  internal  data-checking 
routines.  Tables  B-7  (for  limit  variables)  and  B-9  (for 
other  variables)  give  some  computer  code-related  restric¬ 
tions  on  input  variables.  Of  course,  there  are  many  logical 
restrictions  (such  as  all'  input  probabilities  should  be 
between  zero  and  one,  inclusive)  in  addition  to  the  code- 
related  restrictions  listed  in  these  tables.  Table  B-9 
is  in  three  parts.  Part  1  presents  input  variables  which 
should  be  strictly  greater  than  zero.  (No  input  variable 
should  ever  be  less  than  zero. )  Part  1  does  not  include  the 
limit  variables  listed  in  Table  B-7.  Part  2  lists  integer 
input  variables  that  can  only  take  on  a  few  values  without 
causing  execution  errors  or  meaningless  output.  Most  of 
these  variables  index  "kind  of  protocol"  or  "kind  of  equa¬ 
tion."  Part  3  lists  some  input  variables  whose  values  must 
satisfy  more  complicated  restrictions. 

Reference  [1]  assigns  an  order  number  to  most  of  the 
inputs  to  its  model,  and  it  defines  and  discusses  these 
inputs  in  order  by  their  number  (these  numbers  run  from  1 
to  88  for  the  88  inputs  that  are  assigned  numbers  in  [1] — 
but  not  all  of  these  88  inputs  are  used  in  MEDMOD).  All 
inputs  except  for  "task  force  components"  (i.e..  Blue 
resources)  are  assigned  numbers  in  [1].  To  assist  in  using 
the  data  and  discussions  of  [1] ,  Table  B-ll  lists  each  input 
used  in  Subroutine  CTFMOD  (in  alphabetical  order)  in  its 
first  column;  if  there  is  a  corresponding  variable  in  the 
R-245  model,  it  lists  the  R-245  name  of  that  corresponding 
variable  in  the  second  column  and  the  order  number  of  that 
variable  (if  it  has  one)  or  the  words  "Blue  Resource"  (if 
it  doesn't)  in  the  third  column.  With  one  exception,  if 
there  is  no  R-245  input  that  corresponds  to  the  input  in 
the  first  column,  then  "none"  is  listed  in  the  second  column 
and  the  third  column  is  blank.  The  one  exception  is  the 
input  NKRB,  which  is  logically  fixed  at  1  in  the  R-245  model. 
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Table  B— 12  lists,  in  alphabetical  order,  every  input 
variable,  every  variable  in  labeled  COMMON  (all  inputs  and 
only  inputs  are  in  blank  COMMON),  every  major  indexing  vari¬ 
able,  and  every  computed  limit  variable  used  in  MEDMOD.  The 
first  column  of  that  table  gives  the  name  of  the  variable. 
The  second  column  gives  the  type  and  (where  appropriate)  the 
subtype  of  the  corresponding  variable.  All  variables  are 
categorized  into  exactly  one  of  the  following  types:  input, 
labeled  COMMON,  indexing,  or  computed  limit.  Subtypes  of 
input  variables  are:  resource,  parameter,  or  limit.  The 
names  of  the  labeled  COMMON  block  comprise  the  subtypes  for 
labeled  common  variables.  There  are  no  subtypes  for  index¬ 
ing  or  computed  limit  variables.  The  third  column  lists 
all  program  segments  using  this  variable. 

The  potential  utility  of  the  third  column  of  Table 
B-12  should  be  clear.  However,  the  second  column  of  this 
table  is  also  quite  useful  because  it  serves  as  an  index  to 
the  definitions  of  variables  contained  in  Tables  B-3,  B-6, 
B-7,  and  in  Appendix  C.  To  find  the  definitions  of  any 
variables  listed  in  Table  B-12,  one  should  proceed  as  fol¬ 
lows.  All  input  variables  are  defined  (in  alphabetical 
order)  in  Appendix  C.  (Additional  information  concerning 
resource  inputs  is  given  in  Table  B-4 ,  and  additional  infor¬ 
mation  concerning  limit  input  is  given  in  Table  B-7.)  All 
variables  in  labeled  common  blocks  are  defined  in  Table  B-3. 
Indexing  variables  are  defined  in  Table  B-6,  and  computed 
limits  are  defined  in  Table  B-7. 

B.  TABLES 

Tables  B-l  through  B-12,  which  follow,  conclude  this 
appendix. 
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Table  B-l 


Program  Segments  of  MEDMOD  and  Their 
Characteristics 


Name  of 

Program  Segment 

Mnemonic 

Purpose  of 

This  Program  Segment 

Parameter  Li st d 

This 

Program 
Segment  is 
Called  by 

Program  Segments  Called 
by  This  Program  Segment 

COMMON  Blocks 

Appearing  In 

This  Program  Segment 

1. 

DRIVER  * 

Driving  Program 

Calls  INP  and  MEDMOD;  prints 
headings  for  summary  table 

(n/a) 

beginning 
of  program 

INP,  MEDMOD 

blank  COMMON,  COMIGO 

COMOUT 

2. 

MEDMOD  3 

Mediterranean  Model 

Control  program  for  the 
combat  simulation 

(n/a) 

DRIVER 

Program  Segment  names  noted 
by  c  in  Column  2 

blank  COMMON,  COMCTF, 

COMGA,  COMIGO,  COMSOR 
COMOUT 

3. 

LOCTFF  b 

Locate  Task  Force 
Function 

Determines  what  region  the 
task  force  is  in.  for 
each  time  period  ITP. 

ITP.  LGTHMP ,  LTFMP , 
MIMP 

MOVTF 

(none) 

(none) 

4. 

ABATCK  C 

Airbase  Attack 

Models  Blue  air  attack 
on  vulnerable  Red  airbase 

L 

MEDMOD 

AIRAIR,  ATRTSS,  ATRTAB 

blank  COMMON,  COMCTF, 
COMGA,  COMSOR 

5. 

ADDMOE  C 

Add  up  measures  of 
effectiveness 

Determines  whether  to  stop 
the  simulation 

ITP,  I STOP 

MEDMOD 

(none) 

blank  COMMON,  COMCTF 

6. 

AIRAIR  d 

Air  vs.  Air 

Computes  Air-to-Air  attri¬ 
tion  for  escorts  vs. 
defenders  and  then  for 
defenders  vs.  attackers 

9 

ABATCK 

PLBAB 

ATRTED,  ATRTDA 

(none) 

7. 

ATRTA8  d 

Attrition  at  Airbase 

Computes  attrition  to  Red 
aircraft  on  vulnerable 

Red  airbase 

9 

ABATCK 

(none) 

(none) 

8. 

ATRTDA  d 

Attrition:  Defenders 
vs.  Attackers 

Computes  Air-to-Air  attri¬ 
tion:  Defenders  vs. 
Attackers 

9 

AIRAIR 

BINFAC 

(none) 

9. 

ATRTED  d 

Attrition:  Escorts 
vs.  Defenders 

Computes  Air-to-Air  attri¬ 
tion:  Escort  aircraft 
vs.  Defenders 

9 

AIRAIR 

BINOAT 

(none) 

10. 

ATRTIA  d 

Attrition:  Intercep¬ 
tors  vs.  Attackers 

Computes  attrition:  Blue 

CAP  and  Dll  aircraft  vs. 
Red  bomber  and  escort 
aircraft 

9 

CTFMOD 

(none) 

(none) 

11, 

ATRTSS  d 

Attrition  by  SAMs 

Computes  attrition  for 
aircraft  vs.  SAMs 

9 

ABATCK 

POWERP 

BINOAT 

(none) 

12. 

BARKCK  d 

Barrier  Kills  and 
Counter  Kills 

Assesses  kills  by  barrier 
submarines  against  enemy 
penetrators;  also  counter¬ 
kills 

9 

MOVRS 

MOVTF 

(none) 

BARSCK 

13. 

BINFAC  d 

Binomial  Attrition 
Factor 

Binomial  attrition  routine; 
computes  a  fraction  of 
targets  not  killed 

9 

ATRTDA 

(none) 

(none) 

14. 

B INOAT  d 

Binomial  Attrition 

Binomial  attrition  routine 
(Heterogeneous  Lanchester 

1  inear  analog) 

9 

ATRTED 

ATRTSS 

SUBSUB 

(none) 

(none) 

15. 

BINOM  b 

Binomial  (Distribution 
Probabilities) 

Computes  Probability  of 

M  successes  in  N  trials 
when  prob.  of  success  on 
a  trial  is  P. 

N,H,P 

MOVTF 

(none) 

(none) 

16. 

CTFMOD  C 

Carrier  Task  Force 
Model 

Exercises  the  Carrier  Task 
Force  Model  Based  on  IDA 
Report  R-245. 

L 

MEDMOD 

ATRTIA,  FUNCTl ,  FUNCT2, 
FUNCT3,  FUNCT5 ,  FUNCT6, 
FUNCT9 ,  FUNC11,  FUNC1 2 

blank  COMMON,  COMCTF, 
COMGA,  COMSOR 

17. 

FlINCTl  b 

Function  -  1 

Computes  a  quantity 
necessary  for  CTFMOD 

X,  T1,  T2,  T3 ,  T4 

CTFMOD 

(none) 

(none) 

18. 

FUNCT2  b 

Function  -  2 

"  " 

X,  AEWD,  STAR, 
THSECA 

CTFMOD 

(none) 

(none) 

19. 

FUNCT3  b 

Function  -  3 

i« 

X,  CAPSTR ,  01 

CTFMOD 

(none) 

(none) 

20. 

FUNCT5  b 

Function  -  5 

n  n 

X 

CTFMOD 

(none) 

(none) 

Notes  on  next  page. 


(Continued) 
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Table  B-l.  (Concluded) 


Name  of 

Program  Segment 

Mnemonic 

Purpose  of 

This  Program  Segment 

Parameter  List1 

This 
Program 
Segment  Is 
Called  By 

Program  Segments  Called 
By  This  Program  Segment 

COMMON  Blocks 
Appearing  in 

This  Program  Segment 

21. 

FUNCT6  5 

Function  -  6 

Computes  a  quantity 
necessary  for  CTFMOD 

X,  ESLR,  ESR, 

SUBSOR 

CTFMOD 

(none) 

(none) 

22. 

FUN C T9  b 

Function  -  9 

" 

Y,  TAB10 

CTFMOD 

FUNC10 

(none) 

23. 

FUNC10  b 

Function  -  10 

" 

X,  TAB  T  ?! 

FUNCT9 

(none) 

(none) 

24. 

PUNCH  b 

Function  -  11 

"  " 

X,  FPPL2 

CTFMOn 

(none 

(none) 

25. 

FUNC12  b 

Function  -  12 

Computes  probability  of 
carrier  destruction 
as  a  function  of 
torpedo  hits  sustained 
by  carrier 

X,  TAB12 

CTFMOD 

MOVTF 

(none) 

(none) 

26. 

DDAY  c 

D-Day  Shoot  Out 

Models  the  D-Day 

Shoot  out 

L 

MEDMOD 

(none) 

blank  COMMON,  COMCTF 

27. 

GNAATK  c 

Generate  Air  Attack 

Generates  Red  air 
attacks  on  the  Task 

Force 

L,  ITP 

MEDMOD 

(none) 

blank  COMMON,  COMGA 

28. 

MOVRS  c 

Move  Red  Ships 

Moves  Red  ships  (Incl . 
submarines)  from  region 
to  region,  assessing 
barrier  attrition 
as  appropriate 

LOCTF,  ITP 

MEDMOD 

BARKCK 

blank  COMMON 

29. 

MOVTF  C 

Move  Task  Force 

Moves  the  (Blue)  Task 

Force  from  region  to 
region  as  appropriate, 
assessing  barrier  attri¬ 
tion  as  necessary 

LOCTF,  ITP 

MEDMOD 

LOCTFF,  BARKCK,  BINOM, 
FUNC12 

blank  COMMON,  BARSCK, 
COMCTF 

30. 

PLBAB  C 

Penetrate  Land-Based 

A1 r  Barrier 

Models  the  attempt  by  the 

Red  air  attack  to  pene¬ 
trate  the  Blue  land- 
based  air  barrier 

L 

MEDMOD 

AIRAIR 

blank  COMMON,  COMGA 

31. 

32. 

POWERP  C 

PRTRES  f 

Power  Projection 

Print  Resources 

Calculates  power  projec¬ 
tion  results 

(This  routine  is  not  coded) 

L,  ITP 

MEDMOD 

MEDMOD 

ATRTSS 

(none) 

blank  COMMON,  COMCTF, 
COMSOR,  COMOUT 

(none) 

33. 

PRTSUM  C 

Print  Summary 
Information 

Every  time  period  computes 
(&  writes  on  tape  10) 
a  line  of  Information 
for  the  summary  printout 

LC,  ITP 

MEDMOD 

(none) 

blank  COMMON,  COMCTF, 
COMOUT 

34. 

SHPSHP  C 

Ships  vs.  Ships 

Models  Surface  Ship  vs. 
Surface  Ship  warfare; 
also,  aircraft  from  blue 
carrier  killing  Red 
surface  ships 

L,  ITP 

MEDMOD 

( none) 

blank  COMMON.  COMCTF, 
COMSOR 

35. 

SUBSUB  C 

Submarines  vs. 
Submarines 

Models  Blue  Sub/Red  Sub 
and  Blue  Sub/Red  Surface 
Ship  Interactions 

L 

MEDMOD 

BINOAT 

blank  COMMON 

36. 

TIMET  C 

Time  T  (update 
inputs) 

Changes  or  Increments 
input  variables  when 
desi red 

ICYCLE  (equiva¬ 
lent  to  ITP) 

MEDMOD 

EOF  e 

blank  COMMON,  COMIGO 

37. 

INF  3 

Inputs 

Reads  and  prints  out 
input  variables 

(n/a) 

DRIVER 

(none) 

blank  COMMON,  COMIGO 

NOTES 


aMain  program,  overlaid 
^Function  subprogram 

cSubroutine  called  by  Program  MEDMOD  ("major11  subroutine) 

^Subroutine  called  by  a  program  segment  other  than  Program  MEDMOD 

EOF  is  an  internal  function  signifying  end  of  file  (Tape  15  here).  May  require  attention  In  conversion  to  other  machines. 
This  subroutine  is  not  currently  coded. 

^Parameter  list  for  this  subroutine  is  long;  see  the  code. 

Program  segments  are  listed  in  the  order  they  appear  in  the  MEDMOD  code.  Subroutines  appear  in  alphabetical  order; 
function  subprograms  appear  after  the  program  segment  with  which  they  are  most  closely  associated. 

See  Table  B-2  for  alphabetical  list. 

'l,  1C,  or  LOCTF  is  the  location  (region)  the  task  force  is  in;  ITP  is  the  current  time  period. 
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Table  B-2.  Program  Segments  of  MEDMOD  Listed  in 
A1 phabeti cal  Order 


Seqment 

Segment 

Number3 

Seqment 

Segment 

Number9 

ABATCK 

4 

FUNCT5 

20 

ADDMOE 

5 

FUNCT6 

21 

AIRAIR 

6 

FUNCT9 

22 

ATRTAB 

7 

FUNC1  0 

23 

ATRTDA 

8 

FUNC1 1 

24 

ATRTED 

9 

FUNC1  2 

25 

ATRTIA 

10 

GNAATK 

27 

ATRTSS 

1  1 

INP 

37 

BARKCK 

12 

LOCTFF 

3 

BINFAC 

1  3 

MEDMOD 

2 

BINOAT 

14 

MOVRS 

28 

BINOM 

1  5 

MOVTF 

29 

CTFMOD 

1  6 

PLBAB 

30 

DDAY 

26 

POWERP 

31 

DRIVER 

1 

PRTRES 

32 

FUNCT1 

1  7 

PRTSUM 

33 

FUNCT2 

1  8 

SHPSHP 

34 

FUNCT3 

1  9 

SUBSUB 

35 

TIMET 

36 

aSee  Table  B-l ,  supra . 
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Table  B-3.  MEDMOD  COMMON  Blocks  and  Their  Properties 


Blank  COMMON  contains  all  the  input  variables  and  no  other  variables.  It  appears  in  routines  DRIVER,  MEDMOD,  ABATCK ,  ADDMOE, 

CTFMOD,  DDAY  ,  GNAATK,  MOVRS,  MOVTF,  PLBAB,  POWERP, 
PRTSUM ,  SHPSHP,  SUBSUB,  TIMET,  and  INP. 


Labeled  COMMON  blocks  are  listed  below: 

Labeled  Program  segments  in  which 

COMMON  Block 


Variables  in  this  block  (in  order  of  appearance) 


BARSCK 

BARKCK,  MOVTF 

in  BARKCK  in  MOVTF 

SIBCK1  SCK31  Number  of  barrier  submarines  counterkill ed 

when  barrier  submarines  shoot  first. 

SIBCK2  SCK32  Number  of  barrier  submarines  counterki 1 1 ed 

•hen  penetrating  ships  shoot  first. 

COMCTF 

MEDMOD,  ABATCK,  ADDMOE, 

XEFFCM  -  Relative  carrier  effectiveness.  (Intial  value  is  1.0, 
value  decreases  as  carriers  suffer  successful  attacks.) 

CTFMOD,  DDAY,  MOVTF, 

FGHTRI  -  Initial  number  of  Blue  fighter  aircraft  in  the  task 
force . 

POWERP,  PRTSUM,  SHPSHP 

ATTCKI  -  Initial  number  of  Blue  attack  aircraft  in  the  task 
force . 

XCAPST  -  Current  number  of  CAP  stations  which  are  desired  (as 
determined  by  the  number  of  AEW  aircraft  and  related 
parameters)  and  can  be  supported  (as  determined  by  the 
number  of  available  fighters  on  the  carriers). 

COMGA 

MEDMOD.  ABATCK,  CTFMOD, 

NTPSLA  -  Number  of  time  periods  that  have  elapsed  since  the  last 

Red  air  attack  on  the  task  force. 

GNAATK,  PLBA3 

BMR(2,3)  -  BMR (I ,K ) :  Number  of  Red  Bombers  of  Type  K  from  Airbase 

I  that  are  currently  alive  and  are  continuing  in  the 
air  attack  on  the  task  force. 

ESC ( 2 )  -  ESC ( I ) :  Number  of  Red  fighters  from  Airbase  I  that  are 
currently  alive  and  are  continuing  to  escort  bombers  in 
the  air  attack  on  the  task  force. 

COM I GO 

DRIVER,  MEDMOD,  TIMET,  INP 

IGO  -  Indicator  for  whether  any  input  variables  are  to 
be  changed  in  current  time  period. 

COMOUT 

DRIVER,  MEDMOD,  POWERP, 

CWPPAS  -  Cumulative  weighted  power  projection  sorties  successfully 
flown. 

PRTSUM 

CWTPTF  -  Cumulative  weighted  effectiveness  of  the  task  force. 

PPSORT  -  Number  of  power  projection  sorties  successfully  flown 
during  the  time  period. 

NTPSIM  -  Number  of  time  periods  actually  simulated. 

LTASKF(90)  -  LTASKF(ITP):  Location  of  the  task  force  in  time  period 

ITP . 

COMSOR 

MEDMOD,  ABATCK,  CTFMOD, 

FTSORU  -  Number  of  fighter  aircraft  whose  sorties  have  been  "used 
up"  during  the  clock  time  period. 

POWERP,  SHPSHP 

ATSORU  -  Number  of  attack  aircraft  whose  sorties  have  "been  used 
up"  during  the  clock  time  period. 

00 

I 

CO 


Table  B-4.  Resource  Variables  by  Side  and  Type 


VARIABLE  NAME, 

INDICES^  and  LIMITS0 

DEFINITION 

BLUE  RESOURCES 

Submarines 

1.  BSSNDS 

Direct  support  submarines^ 

2.  BSIBAR(IBAR) ,  IBAR=1 ,NL0Ce 

Submarines  in  barriers,  by  barrier 

Surface  Ships 

3.  XPLAT  (with  effectiveness  XEFFCM) 

Aircraft  carriers 

4.  XEAAW 

Anti-air  warfare  escort  ships 

5.  XEASWA 

Air-capable  anti-submarine  warfare  escort  ships 

6.  XEASWN 

Non-air-capable  anti-submarine  warfare  escort  ships 

7.  XURGS 

URG  ships 

Aircraft 

8.  XATTCK 

Attack  aircraft  (total  over  all  carriers) 

9.  XFGHTR 

Fighter  aircraft  (total  over  all  carriers) 

10.  XAEW 

Carrier-based  AEW  aircraft 

11.  XAEWLQ(L) ,  L=1 ,NL0C 

Land-based  AEW  aircraft  available  when  task  force  is  in  region  L. 

12.  XASW 

Carrier-based  ASW  aircraft 

13.  XASWLQ(L),  L=1,NL0C 

Land-based  ASW  aircraft  available  when  task  force  in  in  region  L. 

14.  PLBLBD(KBD.LB) 

KBD=1 ,NKBDPL 

LB  =1  ,NL0C 

Land-based  air  barrier  aircraft,  by  kind  and  region. 

(Each  region  has  an  associated  land  base  LB) 

RED  RESOURCES 

Submarines 

15.  RS ( 1 ,L) ,  L=1 ,NL0C 

Torpedo- firing  submarines,  by  region 

16.  RS(2,L) ,  L*1 ,NL0C 

Missile- firing  submarines,  by  region 

17.  RS I BAR( I BAR) ,  IBAR=1,  NLOC 

Submarines  in  barriers,  by  barrier 

Surface  Ships 

18.  RS(  KRS  ,L) 

KRS=3 ,NKRS 

L  =1 ,NL0C 

Red  surface  ships,  by  kind  and  region 

Ai rcraft 

19.  ATABT(IAB,KRB) 

KRB=1 ,NKRB 

IAB=1 ,2 

Bombers,  by  kind  of  bomber  and  airbase 

IAB  *  l--vul nerable  Red  airbase 

2--invulnerable  Red  airbase 

20.  AES  CAB ( IAB) ,  IAB=1 ,2 

Escort  aircraft,  by  airbase 

21.  AINTCT 

Interceptor  aircraft  (on  vulnerable  Red  airbase  only) 

22.  SHEL 

Aircraft  shelters  (on  vulnerable  Red  airbase  only) 

SAMs 

23.  ABANM(KRSAMf) ,  KRSAM=1 ,NABSAM 

Actual  number  of  missiles  for  SAMs  defending  the  vulnerable 

Red  airbase. 

24.  ABRSAM( KRSAM),  KRSAM=1 ,NABSAM 

SAMs  defending  the  vulnerable  Red  airbase,  by  kind 

25.  PPANMS(KRSf) ,  KRS=1 ,NPPSAM 

Actual  number  of  missiles  for  SAMs  defending  against  Blue 
power  projection 

26.  PPRSAM(KRS),  KRS=1 .NPPSAM 

SAMs  defending  against  Blue  power  projection,  by  kind  of  SAM 

The  initial  amount  of  each  resource  is  input;  the  variables  are  updated  appropriately  as  the  interactions  of  the  simulation 
occur.  The  26  entries  above  comprise  24  distinct  inputs,  since  RS  appears  on  3  entries.  These  24  inputs  (and  only  these  inputs) 
are  considered  as  incremental  inputs  by  Subroutine  TIMET. 

See  Table  B-6,  infra,  for  definitions  of  indexing  variables  used  here. 

cSee  Table  B-7,  infra,  for  definitions  of  limit  variables  used  here. 

I.e,,  variable  BSSNDS  is  to  be  interpreted  as  the  number  of  Blue  direct  support  submarines;  similarly  for  the  other  resource 
variables. 

' I BAR=1 ,NL0C"  means  that  IBAR  varies  from  1  through  NLOC  (inclusive);  similarly  for  other  indices.. 

Variable  KRSAM  indexes  Red  SAMs  in  Subroutine  ABATCK;  variable  KRS  indexes  Red  SAMs  in  Subroutine  POWERP. 
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Table  B-5.  Resource  Variables  (in  Alphabetical  Order)  and 
Major  Subroutines  Using  Them9 


Resource 

Variable 

Variabl  e 
Number^ 

ABATCK 

ADOMOE 

CTFMOO 

DDAY 

GNAATK 

MOVRS 

MOVTF 

PLBAB 

POWERP 

PRTSUH 

SHPSHP 

SUBSUB 

AB AN M( KRSAM) 

23 

* 

ASRSAM(KRSAM) 

24 

★ 

AESCAB(IAB) 

20 

* 

* 

★ 

* 

* 

AINTCT 

21 

★ 

* 

ATABT(IAB.KRB) 

19 

★ 

* 

* 

* 

* 

BS I  BAR ( I  BAR ) 

2 

★ 

* 

BSSNDS 

1 

* 

★ 

* 

PL3LBD(KBD,LB) 

14 

* 

★ 

PPANM$( KRSAM) C 

25 

* 

?PRSAM( KRSAM)C 

26 

★ 

RS{ 1 ,L) 

15 

* 

* 

* 

* 

k 

RS(2,L) 

16 

* 

* 

★ 

★ 

k 

RS(KRS,L), 

KRS  >_  3 

18 

* 

* 

* 

★ 

k 

RS I  BAR ( I  BAR ) 

17 

* 

k 

SHEL 

22 

* 

XAEW 

10 

* 

XAEWLQ(L) 

11 

* 

XASW 

12 

★ 

XASWLQ(L) 

13 

* 

XATTCK 

8 

* 

★ 

* 

★ 

k 

* 

XEAAW 

4 

* 

* 

■k 

★ 

k 

* 

AEASWA 

5 

* 

* 

k 

★ 

*• 

k 

XEASWN 

6 

* 

* 

k 

* 

* 

k 

XFGHTR 

9 

★ 

* 

k 

* 

k 

k 

XPLAT  (with 

XEFFCM) 

3 

* 

* 

k 

* 

* 

k 

XURGS 

7 

* 

* 

* 

* 

* 

k 

a  *  denotes  that  the  resource  variable  is  used  in  the  indicated  subroutine, 
b  See  Table  B-4,  supra . 

c  The  indexing  variable  actually  used  in  the  POWERP  code  is  KRS.  For  clarity,  KRSAM  is  used  here. 


Table  B-6 


Indexing  Variables 


NOTE:  This  table  defines  the  most  commonly  used  variables  that  index  resource  variables  and  parameters  in  the  major  MEDMOD 
subroutines.  Same  indexing  variables  have  different  meanings  in  different  subroutines;  all  are  given  below. 
Variables  are  listed  in  alphabetical  order. 


INDEXING 

PROGRAM  SEGMENT(S) 

VAR 

IES 

VARIABLE 

WHERE  USED 

From 

To3 

DEFINITION 

I 

ABATCK 

1 

2 

Kind  of  Blue  aircraft  attacking  vulnerable  Red  airbase:  I  =  1— attack  aircraft; 

I  “  2~ fighter  aircraft  performing  ABA. 

I 

CTFMOD 

1 

- 

Several  meanings;  see  definitions  of  input  variables  DLT,  D2T,  TAB10, 

TAB12,  and  TAB13. 

I 

LOCTFF 

1 

MIMP 

Index  for  movement  period  of  task  force. 

IAB 

ABTACK,  CTFMOD, 

GNAATK,  PLBAB , 

PRTSUM 

1 

2 

Red  airbase.  IAB  =  1  corresponds  to  the  vulnerable  Red  airbase;  IAB  =  2,  the 
vulnerable  Red  airbase. 

IATF 

ABATCK 

1 

2 

"Is  attack  on  task  force  planned?"  IATF  =  1  —  Red  will  attack  Blue  task  force 
later  on  in  clock-time  period,  IATF  *  2— Red  will  not. 

IBAR 

MOVRS,  MOVTF, 

PRTSUM 

1 

NLOC 

Barrier  IBAR  is  the  barrier  between  regions  I BAR- 1  and  IBAR. 

K 

ABATCK 

1 

3 

Criterion  for  Red  aircraft  needed  to  warrant  attack.  See  definition  of 
input  variable  RARBAB(K). 

K 

CTFMOD 

1 

NKRB+1 

Type  of  Red  attacker:  K  =  1  to  NKRB  correspond  to  Red  bombers;  K  =  NKRB+1 -- 
SSMs  from  Red  submarines. 

KB  A 

ABATCK,  POWERP, 

SHPSHP 

1 

2 

Kind  of  Blue  attacker:  KBA  *  l--attack  aircraft,  KBA  *  2--fighter  aircraft 
performing  attack 

KBD 

PLBAB,  PRTSUM 

1 

NKBDPL 

Kind  of  Blue  defender  (aircraft)  in  the  Blue  land-based  air  barrier 

KBE 

ABATCK 

1 

1 

Kind  of  Blue  escort  (currently,  only  fighter  aircraft  perform  the  escort  mission) 

KRA 

ABATCK 

1 

NKRA= 

NKRB+2 

Kind  of  Red  aircraft  on  vulnerable  Red  airbase:  KRA  =  1  to  NKRB,  bombers; 

NKRB+1,  escort  aircraft;  NKRB+2,  Interceptor  aircraft 

KRB 

ABATCK,  CTFMOD, 
GNAATK,  PLBAB, 

PRTSUM 

1 

NKRB 

Kind  of  Red  attacker  (bomber). 

KRD 

ABATCK 

1 

2 

Kind  of  Red  defender  of  vulnerable  Red  airbase:  KRD  *  1--Red  escort  aircraft 
on  defense;  KRD  *  2— Red  interceptor  aircraft 

KBS 

MOVTF 

1 

6 

Kind  of  Blue  ship:  1— carriers,  2--AAW  escort  ships,  3 — Air-capable  ASW 
escort  ships,  4--Non-a1r-capable  ASW  escort  ships,  5— URG  ships,  6--d1rect 
support  submarines 

KBSS 

SHPSHP 

1 

5 

Kind  of  Blue  surface  ship,  as  above,  for  index  values  1  through  5 

KRS 

DDAY ,  MOVRS, 

PRTSUM,  SHPSHP, 

SUBSUB 

1 

NKRS 

Kind  of  Red  ship:  KRS  =  l--torpedo  submarines,  KRS  =  2--missile  submarines, 

KRS  *  3, . . . ,NKRS--surface  ships. 

KRS 

POWERP 

1 

NPPSAM 

Kind  of  Red  SAM  defending  against  Blue  power  projection 

KRSS 

PRTSUM,  SHPSHP 

1 

NKR$S= 

NKRS-2 

Kind  of  Red  surface  ship  Surface  ship  kinds  1  to  NKRSS  correspond  to  ship 
kinds  3  to  NKRS,  respectively. 

KRSAM 

ABATCK 

1 

NABSAM 

Kind  of  Red  SAM  defending  the  vulnerable  Red  airbase 

L 

ABATCK,  CTFMOD, 

DDAY,  GNAATK, 

PLBAB,  POWERP, 

SHPSHP,  SUBSUB 

(=L 

.OCTF) 

Region  (location)  the  task  force  is  in;  set  in  MEDMOD  to  current  value  of  LOCTF 

L 

PRTSUM 

1 

NLOC 

Region  (location) 

LB 

PLBAB 

1 

NLOC 

Region  (location).  Used,  to  index  Blue  lard  bases  corresponding  to  the  regions. 

LOC 

MOVRS 

1 

NLOC 

Region  (location) 

L0CTF1 

MOVRS 

(=LOCTF+l ) 

Current  location  of  the  task  force  +  1.  Used  to  index  input  variable  PR$M; 
see  Its  definition. 

NKRBP1 

DDAY 

(=NKRB+1 ) 

See  definition  of  input  variable  ENACDT. 

aSee  Table  3-7:  Limit  Variables,  infra ,  for  definitions  of  the  upper  limit  variables  listed  here. 
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Table  B-7 


Limit  Variables 


Limit  variables  indicate  the  number  of  kinds  available  of  a  resource.  Each  limit  variable 

should  be  at  least  1 


A.  Input  Limit  Variables 


Variable 

Program  segment(s) 
in  which  it  appears 

Defini  tion 

Upper  limit  with  current 
program  dimensioning 

MIMP 

MOVTF,  LOCTFF 

Number  of  movement  periods  for  task  force. 

6 

NABSAM 

ABATCK 

Number  of  kinds  of  Red  SAMs  defending  the 
vulnerable  Red  airbase. 

2 

NKBDPL 

PL BAB,  PRTSUM 

Number  of  kinds  of  Blue  land  based  air¬ 
craft  defending  against  Red  attacking 
ai rcra ft. 

2 

NKRB 

ABATCK,  CTFMOD 

GNAATK,  PLBAB 

PRTSUM 

Number  of  kinds  of  Red  bombers 

3 

NKRSa 

MOVRS,  SHPSHP , 

SUBSUB,  PRTSUM 

Number  of  kinds  of  Red  ships  (kinds  1  and  2 
are  torpedo  and  missile  submarines,  re¬ 
spectively). 

10 

NLOC 

MOVRS,  PRTSUM 

Number  of  possible  regions  for  the  task 
force  excluding  region  zero. 

5 

NPPSAH 

POWERP 

Number  of  kinds  of  Red  SAMs  defending  against 
Blue  power  projection. 

2 

aVariable  NKRS  should  be  at  least  3. 


B.  Limit  Variables  Computed  in  Program 


Variable 

Program  segment(s) 
in  which  it  appears 

Definition 

Val  ue 

Comments 

NKBS 

MOVTF 

Number  of  kinds  of  Blue  ships. 

6 

There  are  six  kinds  of  Blue  ships:  car¬ 

riers,  three  kinds  of  escort  ships,  URG 

ships,  and  direct  support  submarines. 

NKRA 

ABATCK 

Number  of  kinds  of  Red  aircraft 

on  the  vulnerable  Red  airbase. 

NKRB+2 

NKR8  kinds  of  Red  bombers,  escort 

aircraft,  and  interceptor  aircraft. 

NKRSS 

SHPSHP,  PRTSUM 

Number  of  kinds  of  Red  surface 

NKRS-2 

There  are  NKRS  kinds  of  Red  ships: 

shi  p  s . 

1  and  2  are  submarines,  thus  kinds 

3  to  NKRS  are  surface  ships. 

Table  B-8 


Input  Vari 

Variable 

BARLTH(IBAR) 

BUCAP 

ENACDS(KRS) 

ENACDT(K) 

I CTL ( I BAR ) 

PAFCNF 

PFFCNF 


aExcluding  r 
and  B-7,  re 


ables  That  Are  Used  in  Several  Major  Subroutines9 


Definition 


Major  subroutines 
in  which  this  vari¬ 
able  appears 


Length  of  submarine  barrier  between 
regions  IBAR-1  and  IBAR. 

MOVRS,  MOVTF 

The  number  of  sea-based  aircraft 
required  to  support  one  CAP  station. 

ABATCK,  CTFMOD, 
POWERP,  SHPSHP 

Expected  number  of  Blue  aircraft  de¬ 
stroyed  when  a  shot  from  a  Red  ship 
of  type  KRS  hits  a  full  carrier. 

DDAY,  SHPSHP 

Expected  number  of  Blue  aircraft  de¬ 
stroyed  when  an  ASM  of  type  K  hits  a 
full  carrier. 

CTFMOD,  DDAY 

Indicator  for  control  of  submarine 
barrier  between  regions  IBAR-1  and 
IBAR.  (See  list  of  input  variable 
definitions  for  more  details.) 

MOVRS,  MOVTF 

Probability  that  a  (Blue)  attack 
aircraft  cannot  fly  another  sortie 
during  a  clock  time  period  given 
that  it  has  already  flown  during 
that  clock  time  period. 

ABATCK,  SHPSHP 

Probability  that  a  (Blue)  fighter 
aircraft  cannot  fly  another  sortie 
in  that  clock  time  period  given  that 
it  has  already  flown  during  that 
clock  time  period. 

ABATCK,  CTFMOD, 
SHPSHP 

source  and  limit  input  variables;  see  Tables  B-4 
p  e  c  t  i  v  e  1  y  . 
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TABLE  B-9.  SELECTED  INPUT  VARIABLES  WITH  RESTRICTIONS 


PART  1:  INPUT  VARIABLES  THAT  MUST  BE 
STRICTLY  GREATER  THAN  ZEROa’b 


Variable 

Indices  and  Limits0 
(for  vector  variables) 

Program  Segment(s) 
Using  This  Variable 

BARLQ(L) 

L  =  1 , N  LOC 

CTFMOD 

D1T ( I , KRB ) 

1  =  1  ,2 

KRB  =  1  ,  N  KRB 

CTFMOD 

HRMAAW 

CTFMOD 

HRMASW 

CTFMOD 

HRMURG 

CTFMOD 

HRTAAW 

CTFMOD 

HRTASW 

CTFMOD 

HRTURG 

CTFMOD 

I ATKRT ( L  )  d 

L= 1 , N  LOC 

GNAATK 

LGTHMP ( I  )  d 

1=1 .MIMP 

MOVTF ,  LOCTFF 

MAXTPd 

MEDMOD 

PARK 

ABATCK ,  ATRTAB 

THSCAQ(L) 

L=1 , NLO  C 

CTFMOD 

THSCTQ(L) 

L  =  1 , N  LOC 

CTFMOD 

VBT(KRB) 

K  R  B  =  1  , N  KRB 

CTFMOD 

VI 

CTFMOD 

XNRAB 

ABATCK 

aFor  vector  variables,  each  component  (within  the  limits 
stated  in  the  second  column)  must  be  strictly  greater  than 
zero  . 


This  table  does  not  include  limit  variables;  see 
supra  . 

cThe  notation  L=1,NL0C  means  that  L  varies  from  1 
NLOC  (inclusive,  similarly  for  other  variables. 
B-6  and  B-7,  s  upra ,  for  more  information. 

^These  integer  variables  must  be  at  least  one  (in 
appropriate  component). 


Tabl  e  B-7  , 

through 
See  Tables 

every 
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TABLE  B -  9  .  SELECTED  INPUT  VARIABLES  WITH  RESTRICTIONS 


PART  2:  INTEGER  INPUT  VARIABLES  THAT 
CAN  TAKE  ON  VERY  FEW  VALUES 


Variable 

Indices  and 
Limits3 
(for  vector 
variables) 

Program  Segment  (  s  ) 
Using  This  Variable 

A1 1 owa  bl e 
Values  for 
This  V  a  r  i  - 
abl  eb 

IAAED 

ABATCK,AIRAIR,ATRTED 

0,1 

IABAEQ 

ABATCK  ,  ATRTAB 

1  ,2,3 

IABAW 

ABATCK ,  ATRTSS 

1  ,2 

IATRIA 

CTFMOD , ATRTIA 

1,2 

I  CTL ( IBAR) 

I  B A R  =  1  ,NL0C 

MOVRS  ,M0VTF 

0,1  ,2  ,3 

I  DDAC 

DDAY 

1  ,2 

IDDAS 

DDAY 

1  ,2 

IKRAS(KRA) 

KRA  =  1  ,N  KRA 
(NKRA=NKRB+2) 

ABATCK 

0,1 

I PLAED 

PLBAB  ,AIRAIR ,ATRTED 

0,1 

I  P  PAW 

POWERP  ,  ATRTSS 

1,2 

IRSUBA(L) 

L  =  1  ,  N  LO  C 

CTFMOD 

0,1,2 

ISSBR 

SHPSHP 

0,1 

ISSRB 

SHPSHP 

0,1 

aThe  notation  IBAR=l,NLOC  means  that  IBAR  varies  from  1 
through  NLOC  (inclusive);  similarly  for  other  variables. 

For  vector  variables,  each  component  (within  the  limits 
stated  in  the  second  column)  must  take  on  one  of  the  allowable 
values,  but  it  is  not  necessary  for  all  components  to  have 
the  same  value. 
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TABLE  B-9.  SELECTED  INPUT  VARIABLES  WITH  RESTRICTIONS 
PART  3:  OTHER  RESTRICTIONS 


Va  r  i  a  bl  e  (  s  ) 

Re  1 ev  a  n  t 
Program 
Segment( s  ) 

Restrictions  and  Comments 

BARLTH ( I  BAR ) 

MOVRS  , 

MO  VT  F 

Must  be  strictly  greater  than 
zero  if  ICTL(IBAR)^0  for  the 
same  value  of  IBAR  (for  I B A R  =  1 
through  NLOC)  . 

D 1 T ( I , KRB  ) 

D2T( I , KRB  ) 
VBT(KRB) 

CTFMOD 

I f  NKRB>2 ,  then  ,  for  KRB  =  1 
through  NKRB-1  and  for  all  I, 
the  relationships 

D 1  T  (  I  ,  KRB  )  >_D  1  T  (  I  ,  KRB  +  1  )  , 

D2T ( I  ,  KRB ) >  D2T ( I , KRB+1 ) ,  and 

VBT  (  KRB  )>_VBT  (  KRB  +  1  )  must  hold 
(this  ensures  that  different 
kinds  of  bombers  are  ranked  in 
decreasing  order  of  particular 
types  of  effectiveness).  Also, 
the  method  for  computing  attri¬ 
tion  to  Red  bombers  after  they 
launch  their  ASMs  requires  that 

Dl T ( 1  , KRB ) >  D1 T ( 2 , KRB )  and 

D  2  T  ( 1  ,KRB)>.D2T(2,KRB)  for  KRB  =  1 
through  NKRB . 

FFACA(L) 

FFAC  E ( L  ) 

ABATCK 

For  each  region  (L=l  through 

NLOC),  FFACA( L)+FFACE( L)  must 
not  exceed  1.  (One  cannot  allo¬ 
cate  more  fighter  aircraft  than 
are  available.) 

LT.FMP  (  I  ) 

MOVTF , 

LOCTFF 

See  Table  B - 1 0  :  Program  Term- 
i nations,  STOPS  6404  and  6405. 

MAXTP 

MEDMOD 

Must  not  exceed  the  dimension 
limit  of  (computed)  variable 
LTASKF(ITP);  this  limit  is  cur¬ 
rently  90.  (Variable  LTASKF 
appears  in  COMMON  block  COMOUT.) 

3-16 
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Table  B-10 

PROGRAM  TERMINATIONS 

MEDMOD  has  several  checks  built  in  to  stop  the  program  if  values  are  input  that  make  certain  program 
segments  meaningless  to  execute.  The  corresponding  FORTRAN  statements  are  STOP  N,  where  N  is  the 
four  digit  number  below.  The  STOP  N  statement  appears  near  the  end  of  the  program  segment  indicated. 


STOP  Number 

Program  Segment  in 
which  it  appears 

Explanation  and  Comments 

6400 

DRIVER 

(normal  termination) 

6401 

BARKCK 

Zero  kinds  of  penetrators;  variable  NKRS  should 
be  at  1  east  3. 

6404 

MOVTF 

Task  force  directed  to  move  to  a  region  not 
adjacent  to  previous  region.  No  adjacent  com¬ 
ponents  of  the  input  array  LTFMP  should 
differ  by  more  than  unity. 

6405 

MOVTF 

Task  force  directed  to  move  to  a  region 
exceeding  the  number  of  regions  played.  No 
component  of  input  array  LTFMP  should  be 
greater  than  NLOC. 

6406 

BINOM 

Tried  to  compute  binomial  probability  for  P<0, 

P>1  ,  or  M>N . 

6407 

SHPSHP 

Zero  kinds  of  Red  surface  ships;  variable  NKRS 
should  be  at  least  3. 

6410 

SUBSUB 

Zero  kinds  of  Red  surface  ships;  variable  NKRS 
should  be  at  least  3. 

TABLE  B - 1 1 .  CORRESPONDENCE  BETWEEN  MEDMOD  INPUTS 

AND  R-245  INPUTS 


Order  Number 


MEDMOD  Input9 

Correspond!'  nq 

R-245  Inputs 

Assigned  to 
R-245  Input 

AESCAB ( IAB ) 

none 

AEWD 

ABWD 

!  27 

ASWF 

ASWF 

11 

ATABT ( IAB , KRB ) 

AT 

51 

BAREAQ(L) 

BAREA 

9 

BARELQ(L) 

BAREAL 

7 

BARLQ(L) 

BARL 

10 

BUCAP 

BUCAP 

35 

CAPMLQ(L) 

CAPML 

34 

CAPMQ(L) 

CAPM 

33 

CAPMR 

CAPMR 

39 

CAPSTQ(L) 

CAPSTAR 

36 

DL  I A 

DLIA 

41 

D1T ( I , KRB ) 

D 1 

54 

D2T ( I , KRB ) 

D2 

44 

ENACDT ( K ) 

none 

ESLR 

ESLR 

17 

ESRQ(L) 

ESR 

16 

FPPL1 

FPPL1 

57 

FPPL2 

FPPL2 

59 

FSTAQ(L) 

none 

FSTGAQ(L) 

none 

This  table  lists  all  of  the  inputs  used  in  Subroutine  CTFMOD 
as  well  as  the  inputs  PPSORR  and  WFPPAS,  which  are  used  in 
Subroutine  POWERP.  The  variables  PPSORR  and  WFPPAS  are  the 
only  inputs  to  MEDMOD  that  both  correspond  to  R-245  inputs  and 
are  not  used  in  Subroutine  CTFMOD. 

^ A 1 1  R-245  inputs  that  correspond  to  MEDMOD  inputs  are  listed 
here;  there  are  some  R-245  inputs  that  do  not  correspond  to 
any  MEDMOD  input,  and  so  are  not  listed  here. 
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(continued) 


TABLE  B-ll.  (continued) 


Order  Number 


MEDMOD  Input 

CnrrpsDondi ng 
R-245  Input 

Assigned  to 

R-245  Input 

HRMAAW 

none 

HRMASW 

none 

HRMURG 

none 

HRTAAW 

none 

HRTASW 

none 

HRTURG 

none 

IATRIA 

none 

IRSUBA(L) 

none 

NKRB 

fixed  at  1 

PD  I  N 

PDIN 

13 

PPFCNF 

none 

PKASW 

PKASW 

12 

PKAT1 

PKAT1 

55 

PKDF1 

none 

PKIIN 

PKIIN 

18 

PKI  N 

PKIN 

15 

P  KPLDT ( K) 

PKPLD 

61 

PKPL1 

PKPL1 

58 

PKPL2 

PKPL2 

60 

PKSST(K) 

PKSS 

56 

PPSORR ( 1 , L ) 

SA 

62 

PPSORR(2,L) 

SF 

63 

PRWLNQ(L) 

none 

RS ( 1 , L ) 

ST 

19 

RS ( 2 , L ) 

STG 

23 

SMALLR 

SMALLR 

45 

SSDAAW 

none 

SSDASW 

none 

SSDURG 

none 

STARQ(L) 

STAR 

28 

B-19 

(continued) 

TABLE  B - 1 1 .  (continued) 


MEDMOD  Input 

Corresponding 

R - 2 4 5  Input 

Order  Number 
Assigned  to 
R-245  Input 

STSALV 

STSALV 

20 

SUBSOR 

SUBSOR 

21 

TAB 10T ( I , K ) 

TAB  10 ( I ) 

66 

TAB  12  ( I ) 

TAB  1 2 ( I ) 

67 

TAB  1 3T ( I , K ) 

TAB13 ( I ) 

68 

TCAP 

TCAP 

40 

THSCAQ(L) 

none 

THSCTQ(L) 

none 

TPS 

TPS 

21 

T 1 

T 1 

47 

T2 

T2 

48 

T3 

T3 

49 

T  4 

T  4 

50 

UBAEW 

UBAEW 

25 

UBAEWL 

UBAEWL 

26 

UBASW 

UBASW 

8 

UBASWL 

UBASWL 

6 

VBT(K) 

VB 

53 

VCAP 

VCAP 

38 

VI 

VI 

46 

WFMAAW 

none 

WFMASW 

none 

WFMPLT 

none 

WFMURG 

none 

WFTAAW 

none 

WFTASW 

none 

WFTPLT 

none 

WFTURG 

none 

WFPPAS ( 1 , L ) 

WA 

64 

WFPPAS (  2  ,  L  ) 

WF 

65 

B-20 

(continued) 

TABLE  B-ll.  (concluded) 


Order  Number 


MEDMOD  Input 

Corresponding 
R-245  Input 

Assigned  to 
R-245  Input 

WRLNDQ(L) 

none 

WVSIZ 

WVSIZ 

42 

XAEW 

XAEW 

Blue  Resource 

XAEWLQ(L) 

XAEWL 

Blue  Resource 

XASW 

XASW 

Blue  Resource 

XASWLQ(L) 

XASWL 

Blue  Resource 

XATTCK 

noneC 

XEAAW 

XEAAW 

Blue  Resource 

XEASWA 

XEASWA 

Blue  Resource 

XEASWN 

XEASWN 

Blue  Resource 

XFGHTR 

c 

none 

XPLAT 

XPLAT 

Blue  Resource 

XURGS 

none 

ZLAMPF 

ZLAMPF 

14 

ZMPATT(K) 

ZMPAT 

52 

ZMP  CAP 

ZMPCAP 

37 

ZMPDLI 

ZMPDLI 

43 

ZMPESC 

none 

ZMPSTG 

ZMPSTG 

24 

cThere  is  a  rough  correspondence  between  the  MEDMOD  inputs 
XATTCK  and  XFGHTR ,  and  the  R-245  inputs  SPA  (R-245  order 
number  4),  SPF  (R-245  order  number  3),  and  SPLAT  (R-245  order 
number  5 ) . 


B-21 


TABLE  B - 1 2 .  INDEX  OF  MAJOR  VARIABLES  USED  IN  MEDMOD 


VARIABLE  NAME 

TYPE 

OF  VARIABLE 

AAAEDA(KRD) 

INPUT 

(PARAMETER  ) 

AAAEl)F(KRD) 

INPUT 

(PARAMETER  ) 

AAAEED(KBE) 

INPUT 

(PARAMETER  ) 

A  AC  A 

INPUT 

(PARAMETER  ) 

A  A  PA J  0 ( KBA  ) 

INPUT 

( PARAMETER  ) 

AAPL)DA(KRD) 

INPUT 

( PARAMETER  ) 

AAPDDE(KRD) 

I  NPUT 

( PAKAME  TER  ) 

AAPL)EO(KBE) 

INPUT 

( PARAMETER  ) 

AAPKAD(KBA,KRD) 

INPUT 

(PARAMETER  ) 

A  A  P  K  D  A  (  K  R  D  .  K  B  A  ) 

INPUT 

(PARAMETER  ) 

AAPKUE ( KRD, KBE ) 

INPUT 

(PARAMETER  ) 

AttPKED(KBE»KRD) 

INPUT 

(PARAMETER  ) 

A  A  S  R  A  A  (  L  ) 

INPUT 

( PARAMETER  ) 

A  A  S  K  E  D 

INPUT 

(PARAMETER  ) 

A  A  S  P  F  A‘  (  L  ) 

INPUT 

( PARAMETER  ) 

A  a  S  R  F  E  (  L  ) 

INPUT 

(PARAMETER  ) 

AASR  ID 

INPUT 

( PARAME  TER  > 

ABANM(KRSAM) 

INPUT 

(RESOURCE  ) 

ABAVLS(KRSAM) 

INPUT 

(PARAME  TER  ) 

ABC  AS 

INPUT 

(PARAMETER  ) 

AUESGS(KBA) 

INPUT 

(PARAMETER  ) 

ABFASS(KBA) 

INPUT 

(PARAMETER  ) 

ABFSM (KBA  ) 

INPUT 

(PARAMETER) 

ABFVS(KRSAM) 

INPUT 

(PARAME  TER  ) 

ABPDA(KBA) 

INPUT 

(PARAMETER  ) 

ABPDS(KKSAM) 

INPUT 

(PARAMETER  ) 

ABPKA ( KRS  AM  ) 

INPUT 

(PARAMETER  ) 

A  B  P  K  S  (  K  R  S  A  M  >  K  B  A  ) 

INPUT 

(PARAMETER) 

ABPSA(KBA>KRSAM) 

INPUT 

(PARAMETER) 

4  B  R  S  A  M  (  K  R  S  A  M ) 

INPUT 

(RESOURCE  ) 

AP.TSC  (KRSAM  ) 

INPUT 

(PARAMETER  ) 

AbVGSS (KRSAM) 

I  N  P  U  1 

(PARAMETER  ) 

41  SC  AP (  I  AB  ) 

INPUT 

(RESOURCE  ) 

PROGRAM  SEGMENT ( S ) 

USING  THIS  VARIABLE 

ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABA  TC  K 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
ABATCK 
A  B  A  I  C  K 

ABATCK  CTFMGD  GNAATK  PLBAB  PRTSUM 

continued 


VAR  I  Adit  NAME 

AFWD 

AINTCT 

ASWE 

A  1  A  B  T  (  I  A  B ,  K  R  B  ) 
a  i  s  n  R  U 

ATTCKI 

A  I  T  W  G  T 

AVA1LF (L, I  A  6 1 
AVAILT (L,  I  A  B  »  KRB  ) 
AVALEFX  Lt  I  ATF  ) 

A  *|RC  BB 
BACCDw(KBS) 

BACPCK ( KBS  ) 
BAREAQ(L) 
c a  B ARE  LG ( L  ) 

rlj  B  A  R  L  Q  (  L  ) 

BARL  TFI  (  I  BAR  ) 

BE  COW ( KBS ) 

B  t  0  W  (  K  R  S  ) 

3  MR  (  I AB  »  KRB  ) 
L1MTMINCL) 

US  I u AR (  I  BAR ) 
USSNDS 
13UCAP 
CACDWO 
C  A  P  ML  G ( L  ) 

C  A  P  M  0  (  L  ) 

CAP  M  R 
CAPSTG(L ) 

C  P  A  G  V 

C  P  B  P  K  ( K  R  S  ) 
CPBSCK(KRS) 


TABLE  B -  1 2 .  (continued) 


TYPE  HE  VARIABLE 

INPUT  (PARAMETER  ) 

INPUT  (RESOURCE) 

INPUT  (PARAMETER) 

INPUT  ( RESOURCE  ) 

LABELED  COMMON:  COMSOR 
LABELED  COMMON:  COMCTF 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 
LABELED  COMMON:  COMoA 
INPUT  (PARAMETER) 

INPUT  (RESOURCE) 

INPUT  (RESOURCE) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  ( P ARAME  TER  ) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 


PROGRAM  SEGME  NT ( S ) 

USING  THIS  VARIABLE 

C  T  F  M  0  D 

ABATCK  PRTSUM 
CTFMOD 

ABATCK  CTFMOD  GNAATK  PL  BAB 

MEOMOD  ABATCK  CTFMOD  POWERP 

MEDMOD  ABATCK  CTFMOD  DDAY 

SHPSHP 

MOV  T  F 

GNAATK 

GNAATK 

ABATCK 

MOVR  S 

MOV  T  E 

MOVTE 

CTFMOD 

CTFMOD 

CTFMOD 

MOVRS  MOVIE 
MOVT  E 
MOVR  S 

CTFMOD  GNAATK  PLBAB 
GNAATK 

MOVRS  PRTSUM 

MOVTE  PRTSUM  SUBbUB 

ABATCK  CTFMOD  POWERP  SHPSHP 

MOVTF 

CTFMOD 

CTFMOD 

C  T  E  M  0  D 

CTFMOD 

MOVT  F 

MOVTF 

MOVRS 


PRTSUM 

SHPSHP 

POWERP 


continued 


VARIABLE  NAME 
CPRPK(KRS) 

C  PkSCK ( KBS ) 

cscnup 

C  W  P  P  A  s 
CWTPTF 
ODFAC (KRS  ) 
DDPKC ( KkS  ) 
l)OPKS(KRS) 

DDRK AA ( KRS ) 
OORKB A ( KRS ) 
DDRS  A  (KRS  ) 
l)DSPA(KRS) 
l)L  I  A 

H  T  U  ,  K  R  U  ) 

DPT  C  I  >  K  R  B  ) 

ENACDS(KRS) 
FNACOT ( K  ) 

E  INAC  DT  (  NKRBP1  ) 

E  S  C  (  I  A  B  ) 
f  SLR 
tSRJ(L ) 

FAACA(L) 
FACGD(KRA,1ATF) 
EFAC  A (L  ) 

El  ACE  (  L  ) 

EGHTRI 

E 1 1 S  K  (  I  ) 

F M3 (KBS ) 

E  P  P  L  1 
FPPL2 
E  S  T  A  0  (  L  ) 

E  S  I  C  A  C  (  L  ) 


TABLE  B -  1 2 .  (continued) 


TYPE  OF  VARIABLE 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 
LABELED  COMMON:  COMOUT 
LABELED  COMMON:  COMOUT 
INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPU1  (PARAMETER) 

INPUT  (PARAMETER) 
LABELED  COMMON:  C0M6A 
INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

1NPU1  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

LABELED  COMMON:  COMCTF 

INPU1  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 


PROGRAM  SEGMENT ( S  ) 

USING  THIS  VARIABLE 

MOVRS 

MOVTF 
MOV  TF 

MEOMOD  POWERP  PRTSUM 

MEDMOD  PRTSUM 

DD  AY 

DDAY 

DDAY 

DDAY 

DDAY 

DDAY 

DDAY 

C  TF  MOD 

CTFMOD 

CTEMOD 

DDAY  S  HP S HP 

CTFMOD 

DDAY 

CTEMOD  GNAATK  PLBAB 

C  TFMOD 

CTFMOD 

A  u  A  T  C  K 

ABATCK 

A  B  A  T  C  K 

ABATCK 

MEDMOD  ABATCK  CTFMOD  DDAY 

SHPSHP 

ABATCK 

MOVTF 

C  T I  MOD 

CTEMOD 

CTFMOD 

C  TFMOD 


POWERP 


continued 
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TABLE  B-12.  (continued) 


VARIABLE  NAME 

TYPE 

OF  VARIABLE 

PROGRAM  SEGMENT (S ) 
USING  THIS  VARIABLE 

F 1 SORU 

LABELED  COMMON?  CDMSOR 

ME DMOD 

ABATCK 

CTFMOD 

POWERP 

SHPSHP 

HR  M A  AW 

INPUT 

(PARAMETER  ) 

C  TFMOD 

HRMASW 

INPUT 

(PARAMETER  ) 

CTFMOD 

Hk MUR G 

INPUT 

(PARAMETER  ) 

C TFMOD 

H  R  T  A  A  w 

INPUT 

(PARAMETER  ) 

C  TFMOD 

HR  T  ASW 

INPUT 

(PARAMETER ) 

CTFMOD 

HR  TURG 

INPUT 

(PARAMETER) 

C  TFMOD 

i 

INDEXING 

A  B  A  T  C  K 

CTFMOD 

GNAATK 

MOVTF 

I  A  A 1)  A 

INPUT 

(PARAMETER ) 

ABATCK 

I  AAED 

INPUT 

(PARAMETER  ) 

ABATCK 

I  AB 

INDEXING 

ABATCK 

CTFMOD 

GNAATK 

PL  BAB 

PR  T  SUM 

I AB AEQ 

INPUT 

(PARAMETER ) 

ABATCK 

I  A  B  A  F 

INPUT 

(PARAMETER  ) 

ABATCK 

I  A  B  A  W 

INPUT 

(PARAMETER) 

ABATCK 

I  A  T  F 

INDEXING 

ABATCK 

I  A  TKR T (L  ) 

INPUT 

(PARAMETER  ) 

GNAATK 

I  A  T  R  I  A 

INPUT 

(PARAMETER  ) 

C  TFMOD 

I  BAR 

INDEXING 

MOVRS 

MOVTF 

PR  TSUM 

ICTL ( I 0  A R ) 

INPUT 

(PARAMETER ) 

MOVRS 

MOVTF 

I  Dl)AC 

INPUT 

(PARAMETER  ) 

DO  AY 

I  IJDAS 

INPUT 

( PARAMETER) 

DO  A  Y 

I  GO 

LABELED  COMMON?  COMIGO 

Mf  DMOD 

TIMET 

INP 

I  K  R  A  S  (  K  R  A  ) 

INPUT 

(PARAMETER  ) 

AB  A  TCK 

I  PL  AHA 

INPUT 

( PARAMETER  ) 

P  L  A  A  B 

1  PL AED 

INPUT 

( PARAMETER  ) 

PL  3  A  B 

I  PPAF 

INPUT 

( PARAME  TER  ) 

POWER P 

I  PP  AW 

INPUT 

(PARAMETER  ) 

POWFRP 

I  P  S IJ  B  A  (  L  ) 

INPUT 

(PARAMETER  ) 

C  TFMOD 

I  S  S  B  R 

INPUT 

(PARAMETER  ) 

SHPSHP 

l  S  S  R  B 

INPUT 

(PARAMETER ) 

SHPSHP 

ITP 

(TIME 

PERIOD) 

DRIVER 

ME DMOD 

ADDMOE 

GNAATK 

LOC  TFF 

MOVRS 

MOVTF 

POWER P 

PR  TSUM 

SHPSHP 

K 

INDEXING 

ABATCK 

CTFMOD 

GNAATK 

PL8AB 

continued 
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TABLE  B -  1 2 .  (continued) 


VARIABLE  NAME 

TYPE  Ell  VARIABLE 

PROGRAM  SEGMENT(S) 
USING  TUTS  VARIABLE 

KB  A 

INDEXING 

ABATCK 

POWERP 

SHPSHP 

Klil) 

INDEXING 

PLBAB 

PRTSUM 

KP.E 

INDEXING 

ABATCK 

K  IIS 

INDEX  IMG 

M  0  V  I  F 

KR  A 

INDEXING 

ABATCK 

PLBAB 

KRB 

INDEXING 

ABATCK 

C  TFMOD 

GNAATK 

PLBAB 

PRTSUM 

KRU 

INDEXING 

ABATCK 

KRS 

INDEXING 

DO  AY 

MOVRS 

POWERP 

PRTSUM 

SHPSHP 

SUB  SUB 

KKSAM 

INDEXING 

ABATCK 

KRSS 

INDEXING 

PR T SUM 

SHPSHP 

L 

INDEXING 

ABATCK 

C TFMOD 

DDAY 

GNAATK 

MOVRS 

PLBAB 

POWERP 

PRTSUM 

SHPSHP 

SUBSUB 

Ld 

INDEXING 

PLBAB 

PR  TSUM 

LC 

INDEXING 

PRTSUM 

L  GTEIMP  (  I  ) 

INPUT  (PARAMETER) 

L  OC  I  F  F 

MOVTF 

L  UC 

INDEXING 

MOVR  S 

LOCTF 

INDEXING 

MEDMOD 

MOVRS 

MOVTF 

LOCTF 1 

INDEX ING 

MOVRS 

L  TASKF (  ITP  ) 

LABELED  COMMON:  COMOUT 

DR  I VER 

MEDMOD 

L  T  F  M  P  (  I) 

INPUT  (PARAMETER) 

LOCTFF 

MOVTF 

M  A  X  T  P 

INPUT  (LIMIT) 

DRIVER 

MEDMOD 

MIMP 

INPUT  (LIMIT) 

MEDMOD 

LOCTFF 

MOVTF 

NABS  AM 

INPUT  (LIMIT) 

ABATCK 

N  L  P  0 

INPUT  (PARAMETER) 

TIME  T 

I  NP 

N  K  B  D  P  L 

INPU1  (LIMIT) 

PLBAB 

PR  1  SUM 

NKBS 

COMPUTED  LIMIT 

MOVTF 

NKRA 

COMPUTED  LIMIT 

A  6  A  T  C  K 

NKRQ 

INPUT  (LIMIT) 

ABATCK 

C  TFMOD 

GNAATK 

PLBAB 

PRTSUM 

N  K  R  B  P  1 

INDEXING 

DDAY 

N  K  R  S 

INPUT  (LIMIT) 

MOVR  S 

PRTSUM 

SHPSHP 

SUBSUB 

N  K  R  S  S 

COMPUTED  LIMIT 

PRTSUM 

SITPSHP 

;a  OC 

INPUT  (LIMIT) 

MOVR  S 

PRTSUM 

continued 


TABLE  B-12.  (continued) 


VARIABLE  NAME 

NPPS AM 

M  T  P  S  I M 

H  r  P  S  L  A 

i'  A  F  C  N  F 

PARK 

P  A  S  S  (  I  ) 

P  b  0  R  N  (  1  ) 

PBDRS (  I  ) 

P  P  K  R  N  (  I  ) 

P  B  K  R  S  (  I  ) 

PDIN 
PFFCNF 
P  K  A  S  W 
PKAT  1 
PKDF  1 
“  PKIIN 
^  PKIN 

P  K  P  L  D  T  (  K  ) 

PKPL  1 
P  K  P  L  2 
P  K  S  S  T  (  K  ) 

PL  AE  DA ( KBD ) 

PL  At  OF ( KBD ) 

P  L  A  E  E  D 

PLBLBD ( KBD, LB  ) 

P  L  C  A  (  L  ) 

PL  F  D  L  L ( LB, L, KBD) 
PI  PA  Jf)(  KRA  ) 
PLPDOA(KBD) 

P  L  P  D  D  E  (  K  B  D  ) 

P  L  P  0  E  n 

Pi PKAD(KRA,KBD) 
PI.  P K D  A  (  K BO ,  KRA) 


TYPE  nr  VARIABLE 

INPUT  (LIMIT) 

LABELED  COMMON:  COMOUT 
LABELED  COMMON:  COMGA 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPU1  (PARAMETER) 

INPUT  (RESOURCE) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER  ) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAME1ER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 


PROGRAM  SEGMENT ( S ) 
USING  THIS  VARIABLE 

POWER P 

MEDMOQ  ADDMOE 
MEOMQD  ABATCK  GNAATK 
ABATCK  SHPSEIP 
ABA  TCK 

ABATCK 

ABATCK 
ABATCK 
ABATCK 
ABATCK 
C  TF  MOD 

ABATCK  C  T  F  MOD  SHPSHP 

C  T  F  M  0  0 

C  TFMOD 

C  TFMOD 

C  TFMOD 

C  TFMOD 

CTFMOD 

C  T  F MOD 

CTFMOD 

CTFMOD 

P  L  B  A  B 

PL  BAB 

PLBAB 

PLBAB  PRTSU.M  ' 

PLBAB 
PLBAB 
PLBAB 
PLBAB 
PLBAB 
PLBAB 
P  L  B  A  B 
PLBAB 


continued 


TABLE  B-12.  (continued) 

PROGRAM  SEGMENT (S) 


VARIABLE  name 

TYPE 

OF  VARIABLE 

USING  THIS  VARIABLE 

PI PKDE ( KBD  ) 

INPUT 

(PARAMETER) 

P  L  B  A  B 

PLPKED(KBD) 

INPUT 

(PARAMETER ) 

PLUAB 

PPAEGS(KBA) 

INPUT 

(  PARAMETER  ) 

POWER  P 

PPANMS(KRSAM) 

INPUT 

(RESOURCE ) 

POWER P 

PPA VLS ( KRSi L ) 

INPUT 

(PARAMETER ) 

POWERP 

PEAVSS ( KRS  ) 

INPUT 

( PARAME  TER ) 

POWER  P 

PPL  AL ( L  ) 

INPUT 

( PARAMETER ) 

POWERP 

P  P  E  A  S  H  (  K  B  A  ) 

INPUT 

(PARAMETER ) 

POWERP 

PPEASS(KBA) 

INPUT 

(PARAMETER ) 

POWERP 

PPESVS(KPS) 

INPUT 

(PARAMETER ) 

POWERP 

P  P  P  n  A  S  (  K  B  A  ) 

INPUT 

(PARAMETER  ) 

POWERP 

PPPDSA(KRS) 

INPUT 

(PARAMETER  ) 

POWERP 

PPPKAS(KRS) 

INPU1 

( PARAMETER ) 

POwERP 

PPPKSA{KRS,KBA) 

INPU1 

(PARAMETER ) 

POWERP 

PPPSAS(KBA>KRS) 

INPUT 

(PARAME  TER ) 

POWERP 

PPRS AM (KRS AM) 

INPUT 

(RESOURCE ) 

POwERP 

PPSORRi KBA#  L  ) 

INPUT 

(PARAMETER ) 

POWERP 

PPSORT 

LABELED  COMMON:  COMOUT 

MEDMOO  POWERP  PRTSUM 

PPTSCS (KRS  ) 

INPUT 

(PARAMETER  ) 

POWERP 

PR  SM ( KRS  »  LOC  >  LOG  TF 1 ) 

INPUT 

(PARAME  TER  ) 

MOVRS 

PPWLNCM  L  ) 

INPUT 

(PARAMETER  ) 

C  TFMOD 

RACCOWKRS) 

INPUT 

(PARAMETER ) 

MOVRS 

RACPCK(KRS) 

INPUT 

(PARAMETER ) 

MLIVRS 

R  A  R  R  A  B  (  K  ) 

INPUT 

(PARAMETER  ) 

A  B  A  T  C  K 

R  t  C  L)  W  ( K  R  S  ) 

INPU1 

(PARAME  TER ) 

MOVRS 

R FDR (KBS  ) 

INPUT 

(PARAMETER  ) 

MOVTF 

kS (  1,  L  ) 

INPUT 

( RESOURCE ) 

C  TEMOD 

DDAY 

MOVRS 

PRTSUM 

SUBSUB 

R  S  (  2  >  L  ) 

INPUT 

(RESOURCE ) 

C  TFMOD 

DDAY 

MOVRS  ■ 

PRTSUM 

SUBSUB 

RS(KRS,L),KRS>3 

INPUT 

(RESOURCE ) 

DDAY 

MOVRS 

PRTSUM 

SHPSHP 

SUB  SUB 

RSIB AR (  I  BAR  ) 

INPUT 

(RESOURCE ) 

MOVTF 

PRTSUM 

S  :i  E  B  C  E 

INPUT 

( PARAMETER  ) 

SUB  SUB 

Sill  PCS 

INPUT 

(PARAMETER  ) 

SUB  SUB 

S  It  (  R  F  A  (  L  ) 

INPUT 

(PARAMETER  ) 

S  0  0  S  U  8 

continued 


TABLE  B -  1 2 .  (continued) 


VARIABLE  NAME 

S BE  RFC 
SBFRSA ( L  ) 

S  B  F  P  S  C 
SBPBDF 
;>  B  P  B  D  S 
S  E  P  B  K  F 
SBPBKS 
SB  PERU 
S  B  P  F  K  B 
SUPS  DO 
S  !i  P  S  K  B 
SC  K  3  1 
SCK32 
SHE  L 
S  N  A  L  L  R 

^  SSBACR(KRSS) 

md  S  S  C  F  A 
SSDAAW 
SSDASW 
iSDURG 

5SFBAK(KBA,KRSS) 

SSFRSV(KRSS>L ) 

5SPBDR 

SSPBKR 

S  S  P  R  0  B 

5  S  P  R  K  B 

jSPRKC 

S  T  A  R  Q  (  L  ) 

S  I  S  A  L  V 
SUBS  OR 
r  A  8  1  0  T  (  1  »  K  ) 

I  A  B 1  2  (  1  ) 

T  AB1 3T (  I ,K ) 


TYPE  OF  VARIABLE 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 
LABELED  COMMON:  BARSCK 
LABELED  COMMON:  BARSCK 
INPUT  (RESOURCE) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPU1  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 

INPUT  (PARAMETER) 


PROGRAM  SEGMENT(S) 
USING  IMIS  VARIABLE 

SUB  SUB 
SUB  SUB 
SUbSUB 
SUBSUB 
SUBSUB 
SUB  SUB 
SUB  SUB 
SUB  SUB 
SUB  SUB 
SUbSUB 
SUB  SUB 
MOV  T  F 
MOV  TF 
ABATCK 
C  T  F  MOD 
SHPSHP 
SHPSHP 
C  T  FMOD 
C  T  FMOD 
C I FMOD 
SHPSHP 
SHPSHP 
SHPSHP 
SHPSHP 
SHPSHP 
SH PSHP 
SHPSHP 
C  TF  MOD 
C TP  MOD 
C  TF  M  OD 
C  TFMOD 
CTFMOD 
C  TFMOD 


continued 
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TABLE  B- 


V  A  K  I  A  il  L  E  NAME 
TCAP 

fHSC AQ ( L  ) 

I HSC TG ( L  ) 

r  PAS 

rps 

El 

r  2 
r  3 

T4 

Ud  AE  WL 
UP  AE  A 
UBASWL 
UPASW 

VPT(K) 

ro  vcap 

VI 

d  F  M  A  A  W 
W  F  M  A  S  W 
4  F  M  P  L  T 
wFMURG 

WFPPAS (KBA, L ) 
fi  f  r  A  A  W 

a1  f  r  a  s  w 

A  F  I  F  L  (  L  ) 

W  F  T  P  L  T 
a'E  turg 

WRLNDO ( L  ) 
WTFCBO 
/I VS  I  Z 
X  A  F  W 

*  A  |.  to  L  0  (  L  ) 

>.  A  S  W 

X  A  S  v.  L  0  (  L  ) 


TYPE  0  F  VARIABLE 

INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (PARAMETER) 
INPUT  (RESOURCE) 
INPUT  (RESOURCE) 
INPUT  (RESOURCE) 

1  NPU1  (RESOURCE  ) 


(continued) 


PROGRAM  SEGMENT (S ) 
USING  THIS  VARIABLE 

CTFMOD 

C  T  F  MOD 

CTFMOD 

MOVTF 

C  TE  MOD 

CTFMOD 

CTFMOD 

CTFMOD 

C  TE  MOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

CTFMOD 

POWFRP 

CTr MUD 

CTFMOD 

PR  TSUM 

CTFMOD 

CTFMOD 

CTFMOD 

MOVTF 

CTFMOD 

C  Th  MOD 

C  TFMOD 

CTFMOD 

C  TFMOD 


continued 


TABLE  B-12. 


(concluded) 


VARIABLE  NAME 

TYPE 

OF  VARIABLE 

PROGRAM  SEGMFNT (S) 
USING  THIS  VARIABLE 

X  A  T  T  C  K 

INPUT 

(RESOURCE ) 

ABATCK 

C  TF  MOD 

DDAY 

POWERP 

PRTSUM 

SUP  SUP 

xc aps  r 

LABELED  COMMON:  COMCTF 

MEDMOD 

ABATCK 

CTFMOD 

POWERP 

SHPSHP 

X  L  A  A  W 

INPUT 

(RESOURCE  ) 

A  D  D  M  0  F 

CTFMOD 

DDAY 

MOVTF 

PRTSUM 

SHPSHP 

X  [.  A  S  W  A 

INPUT 

(RESOURCE ) 

A  D  D  M  0  E 

C  T  F  MOD 

DDAY 

MOVTF 

PRTSUM 

SHPSHP 

XI ASWN 

INPUT 

(RESOURCE  ) 

ADDMOE 

CTFMOD 

DDAY 

MOVTF 

PRTSUM 

S  H  P  S  H  P 

X  t  E  F  C  M 

LABELED  COMMON:  COMCTF 

MEDMOD 

ABATCK 

ADDMOE 

CTFMOD 

DDAY 

MOVTF 

POWERP 

PRTSUM 

SHPSHP 

X  F  G  H  T  R 

INPUT 

(RESOURCE) 

ABATCK 

C  TFMGD 

DDAY 

POWERP 

PRTSUM 

SHPSHP 

a  1  A  (  L  ) 

INPUT 

(PARAMETER) 

ABATCK 

X  IE ( L  ) 

INPUT 

( PARAMETER  ) 

ABA  TCK 

A  NR  A  3 

INPUT 

( PARAME  TER  ) 

ABATCK 

X  PL  A  r 

INPUT 

(RESOURCE  ) 

DRIVER 

ADDMOE 

CTFMOD 

DDAY 

MOVTF 

PR  I  SUM 

SHPSHP 

X UP  c  S 

INPUT 

(RESOURCE  ) 

ADDMOE 

CTFMOD 

DDAY 

MOVTF 

PRTSUM 

SHPSHP 

Z  L  A  M  P  F 

INPUT 

(PARAMETER  ) 

CTFMOD 

Z  h  P  A  T  T  (  K  ) 

INPUT 

(PARAMETER  ) 

C  TEHOD 

ZNPCAP 

INPUT 

(PARAMETER  ) 

CTFMOD 

ZNPDL  J 

IN  PUT 

(PARAMETER  ) 

CTFMOD 

Z  M  P  E  S  C 

INPUT 

(PARAMETER) 

C I FMOD 

i  r.  p  s  r  c 

INPUT 

(PARAMETER  ) 

CTFMOD 

APPENDIX  C 

DEFINITIONS  OF  INPUTS  AND 
SAMPLE  OUTPUT  OF  INP 


DEFINITIONS  OF  INPUTS  AND 
SAMPLE  OUTPUT  OF  INP 


The  following  is  the  output  produced  by  Overlay  INP  given 
an  entirely  hypothetical,  unclassified  data  base.  This  out¬ 
put  serves  three  purposes.  First,  and  most  importantly,  it 
gives  definitions  for  all  inputs  to  MEDMOD  in  alphabetical 
order. 1  Second,  it  shows  a  potential  user  of  MEDMOD  what 
the  output  of  INP  (i.e.,  what  the  output  of  the  inputs)  looks 
like.2  Third,  it  provides  a  hypothetical  data  base  for  test¬ 
ing  purposes.  Appendix  D  gives  the  remainder  of  the  outputs 
of  MEDMOD  (i.e.,  the  output  of  the  results)  based  on  this 
hypothetical  data  base. 


'•Note  that  the  alphabetizing  rule  used  by  the  CDC-6400  computer  ranks  blanks 
after  letters,  not  before  them.  Thus,  for  example,  RS  follows  RSIBAR  and 
UBAEW  follows  UBAEWL  on  this  output. 

2Note  that  INP  displays  all  TIMET  input  changes  first,  before  it  displays 
the  initial  input  values.  In  the  sample  output  of  INP  displayed  here, 
some  of  the  entries  of  two  input  arrays  are  to  be  changed  during  the  run — 
the  entries  of  AVAILE(L,1)  for  L  =  1,  ...,  5  are  to  be  changed  from  their 
initial  values  to  0.1,  0.2,  0.4,  0.8,  and  0.8,  respectively,  at  the  start 
of  time  period  3,  and  the  entries  of  ATABT(I,1)  for  I  =  1,2  are  to  be  incre 
mented  by  5.0  and  5.0,  respectively,  at  the  start  of  time  period  8. 


C-l 


o 

I 

ro 


TIME-T*  3  VARIABLE  A  V  A  I L  E 

.1000  .2000 

T  I  M  E-T -  6INCREM  VARIABLE  ATABT 
5.000  5.000 

VARIABLE - A  A A  E  D  A (  2,  0,  0) 


0.  3.000 

VARIABLE - A A  A  ED  E (  2*  0,  0) 

0.  1.000 

VARIABLE - A  A  A  E  E  D (  If  Of  0) 

5.000 

VARIABLE - AACA  (  1,  0/  0) 

6.000 

VARIABLE - A  A  P  A  J  0 (  2,  0,  0) 

.1000  .1200 

VARIABLE  -  AAPDDAt  2#  0*  0) 

•  6  400  .7400 

VARIABLE  -  AAPDDE(  Z>  0,  0) 


0  o  i  o - VALUES  ARE  BELOW 

.4000  .8000  .0000  0. 

0  01  0 - VALUES  ARE  BELOW 

0.  0.  0.  0. 


(KRD)  AVERAGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION  TO  1.0) 
THAT  A  RED  DEFENDER  OF  KIND  KRD  CAN  POTENTIALLY  MAKE  AGAINST  BLUE  ABA 
AIRCRAFT. 

**NOTE**INPUT  VARIABLES  WHOSE  NAMES  START  WITH  AA  ARE  USED  IN  SUBROU¬ 
TINE  ABATCK,  ESPECIALLY  THE  AIR-TO-AIR  PORTIONS. 


(KRD)  AVERAGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  THAT  A  RED  DEFENDER  OF 
KIND  KRD  CAN  POTENTIALLY  MAKE  AGAINST  BLUE  ABA  ESCORT  AIRCRAFT, 


( K B E  >  AVERAGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  THAT  A  BLUE  ABA  ESCORT 
AIRCRAFT  OF  KIND  K  BE  CAN  SHOOT  AT  A  RED  DEFENDER  (AIRCRAFT). 


NUMBER  OF  AIR-TO-AIR  COMBAT  AREAS  USED  IN  DEFENSE  OF  THE  VULNERABLE 
RED  AIRBASE. 


(KBA)  PROPORTION  OF  BLUE  ABA  AIRCRAFT  OF  KIND  KBA  THAT*  WHEN  ENGAGED 
BY  A  RED  DEFENDER*  JETTISON  THEIR  ORDNANCE  AND  RETURN  FIRE. 


(KRD)  PROBABILITY  THAT  A  RED  DEFENDER  OF  KIND  KRD  WILL  DETECT  A  BLUE 
ATTACKER  . 


(KRD)  PROBABILITY  THAT  A  RED  DEFENDER  OF  KIND  KRD  WILL  DETECT  A  BLUE 
ABA  ESCORT  AIRCRAFT. 


,  5200 


.  6200 


VARIABLE  -  AAPDEDt  1*  0*  0) 

(KBE)  PROBABILITY  THAT  A  BLUE  ABA  ESCORT  AIRCRAFT  OF  KIND  KBE  WILL 
DETECT  A  RED  DEFENDER. 

.  4200 


o 

I 

uo 


VARIABLE 


VAR  I  ABLE 


-  A A  PK AD  ( 

2  f  2  * 

0) 

( KB  A#  KRD )  PROBABILITY  THAT  AN  ATTACKER 
DER  OF  KIND  KRD#  IF  ENGAGED. 

OF 

KIND 

KBA  WILL 

KILL  a  DEFEN 

.2100 

.  2300 

.  3100 

.  3300 

■-  A  A  PKD  A  ( 

2,  2  f 

0) 

( KRD#  KB  A )  PROBABILITY  THAT  A  DEFENDER 
ACKER  OF  KIND  KBA#  IF  ENGAGED. 

OF 

KIND 

KRD  WILL 

KILL  AN  ATT- 

.  5000  E-0 1 

.  600  0  E 

-01 

.  3000E-01 

. AOOOE 

-01 

VARIABLE 


VARIABLE 


VARIABLE 


-  AAPKDEt  2>  1# 


. 1000E-01 
. 2000E-01 


(KRD,.KBE>  PROBABILITY  THAT  A  DEFENDER  OF  KIND  KRD  WILL  KILL  AN  ESCORT 
QF  KINO  K3E  #  IF  ENGAGED. 


- A  A  PKED  ( 


.  2700 


If  Zf 


.1700 


( KBE  >  KR  0 )  PROBABILITY  THAT  AN  ESCORT  OF  KIND  KB  E  WILL  KILL  A  DEFENDER 
OF  KIND  KRD#  IF  ENGAGED. 


AASRAA ( 

5#  0# 

0  ) 

(L)  SORTIE  RATE  OF  BLUE 
ACK  WHEN  THE  TASK  FORCE 

PERIOD) 

5600 

.  6600 

,7600  .8600 

ATTACK  AIRCRAFT  (FROM  CARRIER)  ON  AIRBASE  ATT- 
IS  IN  LOCATION  L.  (SORTIES  FLOWN  PER  TIME 

.  8600 


VARIABLE  -  AASREDI 

1.16  0 


SORTIE  RATE  OF  RED  ESCORT  AIRCRAFT  ON  AIRBASE  DEFENSE  MISSION. 


VARIABLE  -  AASRFAt 

5 1  0# 

0) 

SORTIE  RATE 

(L  ) 

THE 

TASK  FORCE 

.  1700 

,  5700 

. 

6700 

FOR  BLUE  FIGHTER  AIRCRAFT  DOING  AIRBASE  ATTACK  WHEN 
IS  IN  LOCATION  L. 

7700  .8700 


VARIABLE 


VAR  I  ABLE 


-  A  A  S  R  F  E  ( 

5  f  0, 

0  ) 

(L)  SORTIE  RATE  FOR 

WHEN  THE  TASK 

FORCE 

.  78C0 

1.000 

1 . 000 

1.000 

BLUE  FIGHTER  AIRCRAFT  DOING  AIRBASE  ATTACK  ESCORT 
IS  IN  LOCATION  L. 

1.000 


- A  A  S  R  I D  ( 


SORTIE  RATE  OF  RED  INTERCEPTOR  AIRCRAFT  ON  AIRBASE  DEFENSE  MISSION. 


1.U00 


a 

i 

-fcr 


VARIABLE 


VARIABLE 


VARIABLE 


-  ABANH  ( 

2,  Of 

0) 

1000. 

0. 

(KRSAM)  ACTUAL  NUMBER  OF  MISSILES  FOR  RED  SAMS  OF 
THE  VULNERABLE  RED  AIRBASE. 

++NOTE++INPUT  VARIABLES  WHOSE  NAMES  START  WITH  AB 
PORTION  OF  SUBROUTINE  ABATCK. 

KIND  KRSAM  DEFENDING 

ARE  USED  IN  THE  SAM 

- AB  A VL  S  ( 

2>  0, 

0) 

.  5100 

.  7100 

(KRSAM)  AVAILABILITY  FACTOR  FOR  SAMS  DEFENDING  THE 
BASE.  KRSAM=1>  .  ■  .jNABSAM 

VULNERABLE  RED  AIR- 

-  ABCAS  ( 

If  Of 

0) 

7.000 

NUMBER  OF  COMBAT  AREAS  FOR  THE  BLUE  ABA  AIRCRAFT/REO  SAM  INTERACTION. 
THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

VARIABLE - A  B  E  SGS (  2,  0,  0) 

(KBA)  AVERAGE  NUMBER  0E  ADDITIONAL  GROUND  TARGETS  THAT  AN  AIRCRAFT  OF 
KIND  KBA  CAN  POTENTIALLY  MAKE  AFTER  HAVING  ENGAGED  A  SAM. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

1.800'  1.900 


VARIABLE 


VARIABLE 


- A  B  F  A  S  S (  2,  0,  0) 

(KBA)  FRACTION  OF  BLUE  ABA  AIRCRAFT  OF  KIND  KBA  THAT  CAN  DO  SAM  SUP¬ 
PRESSION. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

.5900  .7900 

-  ABFSM  (  2,  0,  0) 

(KBA)  FRACTION  OF  BLUE  ABA  AIRCRAFT  OF  KIND  KBA  THAT  ARE  INVULNERABLE 
TO  SAMS  (PERHAPS  DUE  TO  STANDOFF  MUNITIONS). 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 


VARIABLE  -  ABFVS  (  2,  0,  0) 

(KRSAM)  FRACTION  OF  SAMS  VULNERABLE  TO  SAM  SUPPRESSORS.  (RED  SAMS  DEF¬ 
ENDING  THE  VULNERABLE  RED  AIRBASE.) 

KRSAM *1#. . •  f  NAB  S  AM 

0.  .5300 


VARIABLE - ABPDA 


.8100 


2,  0,  0) 

(KBA)  PROBABILITY  THAT  A  SAM  SUPPRESSOR  WILL  DETECT  A  SAM. 

KBA=1  FOR  BLUE  ATTACK  AIRCRAFT »  KBA=»2  FOR  BLUE  FIGHTERS. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

.  8200 


VARIABLE 


A  0  P  0  S  ( 


0) 


2  >  0  , 

(KRSAM)  PROBABILITY  THAT  A  SAM  WILL  DETECT  AN  AIRCRAFT# 

K  R  S  AM  *  1 , . . . , NABS  AM 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

.71*00  .  8600 

VARIABLE  -  ‘ABPKA  (  2,  0,  0) 

(KRSAM)  PROBABILITY  THAT  A  SAM  SUPPRESSOR  WILL  KILL  A  SAM. 
KRSAM=1, . . ., NABS  AM 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

.1100  .1200 


VARIABLE  -  ABPKS  ( 


•1300E-01 
. 4300E-01 


2,  2  f  0) 

(KRSAM, KBA)  PROBABILITY  THAT  A  SAM  WILL  KILL  AN  AIRCRAFT# 
KRSAM=1,..  ., NAB  SAM 

K  B  A  *  1  FOR  BLUE  ATTACK  AIRCRAFT,  KB  A*2  FOR  BLUE  FIGHTERS. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

. 2300E-01 
. 5300E-01 


O 

I 

v_Ji 


VARIABLE - ABPSA 


.  2100 
.  2500 


2,  2,  0) 

(KBA, KRSAM)  PROBABILITY  THAT  A  SAM  SUPPRESSOR  WILL  SUPPRESS  A  SAM. 
KRSAM»1,...,NABSAM 

KB  A  =  1  FOR  BLUE  ATTACK  AIRCRAFT,  K  B A  *  2  FOR  BLUE  FIGHTERS. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIR8ASE. 

.3100 
.  3500 


VARIABLE - AB  R  S  AM (  2,  0,  0) 

(KRSAM)  INITIAL  NUMBER  OF  RED  SAMS  OF  KIND  KRSAM  DEFENDING  THE  VULNER¬ 
ABLE  RED  AIRBASE  < KRS AM = 1 , . . . , N AB S A M ) . 

20.00  10,00 


VARIABLE  -  ABTSC  (  2,  0,  0) 

(KRSAM)  TOTAL  SHOTS  PER  CYCLE  FOR  A  SAM. 

KR  S  AM  *  1 , . . NABS  AM 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

2.000  6.000 


VARIABLE - AB  VG  S  S (  2,  0,  0) 

(KRSAM)  AVERAGE  NUMBER  OF  SHOTS  PER  FIRE  CONTROL  CENTER  OF  KIND  KRSAM 
PER  ATTACK  AIRCRAFT. 

THIS  INPUT  IS  USED  WHEN  BLUE  ATTACKS  THE  VULNERABLE  RED  AIRBASE. 

.5000  1.000 


VARIABLE - A  E  S  C  A  B (  2,  0,  0) 

(I)  NUMBER  OF  RED  ESCORTS  STATIONED  ON  NOTIONAL  RED  AIRBASE  I  — 
1=1  IS  THE  VULNERABLE  AIRBASE,  1*2  IS  THE  INVULNERABLE  AIRBASE. 


100.0 


100.0 


VARIABLE 

-  AEWD  ( 

1# 

0, 

0) 

THE  RADAR  DETECTION  RANGE  FOR  AEW  AIRCRAFT.  NO  DISTINCTION  IS  MADE 
BETWEEN  SEA-  AND  LAND-BASEO  ASSETS.  ( NMI  ) 

220.0 

VARIABLE 

- A  I N  TC  T  ( 

1# 

0, 

0) 

INITIAL  NUMBER  OF  RED  INTERCEPTOR  AIRCRAFT  (ON  THE  VULNERABLE  AIRBASE) 

50.00 

VARIABLE 

-  ASWF  ( 

If 

0, 

0) 

A  PARAMETER  USED  TO  MOOEL  THE  INCREASING  PROBABILITY  OF  DETECTING  A 
SUBMARINE  TRAVERSING  THE  OUTER  ASW  SCREEN  AS  THE  SCREEN  WIDTH 
INCREASES. 

.  5000E-01 

VARIABLE 

-  ATABT  ( 

2  f 

3# 

0) 

(I*K)  THE  NUMBER  OF  RED  BOMBERS  OF  TYPE  K  STATIONED  ON  RED  AIRBASE  I # 
1*1  IS  THE  VULNERABLE  AIRBASE#  1*2  IS  THE  INVULNERABLE  AIRBASE. 

40.00 

20. 

00 

20.00 

40.00 

20. 

00 

20.00 

VARIABLE 

-  ATT WGT ( 

1, 

0, 

0) 

ATTRITION  WEIGHT  FOR  BLUE  SHIPS  CROSSING  RED  SUBMARINE  BARRIERS. 

(VALUE  SHOULD  BE  BETWEEN  0.0  AND  1.0#  INCLUSIVE.) 

.  5000 

VARIABLE 

-  availe ( 

5 # 

2  f 

0  ) 

<L#I)  FRACTION  OF  THE  RED  ESCORTS  THAT  ARE  AVAILABLE  TO  FLY  MISSIONS 
FROM  RED  AIRBASE  I  TO  TASK-FORCE  LOCATION  L  DURING  A  TIME  PERIOD  IN 
WHICH  AN  ATTACK  IS  PLANNED.  THUS#  THE  OVERALL  SORTIE  RATE  FOR  ESCORTS 
IS  GIVEN  BY  tl/IATKRT(L)  )*AVAILE(UI)  — 

1*1  IS  THE  VULNERABLE  AIRBASE#  1*2  IS  THE  INVULNERABLE  AIRBASE. 

0. 

0. 

.1000 

0. 

.  2000 

0. 

.  4000 

0. 

.  6000 

.  8000 

VARIABLE 

- AVAILK 

5 *  2* 

3) 

(  L  *  1  *  K  )  FRACTION  OF  RED  BOMBERS  OF 1  TYPE  K  THAT  ARE  AVAILABLE  TO  FLY 
MISSIONS  FROM  RED  AIRBASE  I  TO  TASK-FORCE  LOCATION  L  DURING  A  TIME 
PERIOD  IN  WHICH  AN  ATTACK  IS  PLANNED.  THUS*  THE  OVERALL  SORTIE  RATE 
FOR  TYPE-K  BOMBERS  IS  GIVEN  BY  (1/IATKRT (L) )  *  A  V  A  I L  T (  L  *  I  *  K  )  — 

1=1  IS  THE  VULNERABLE  AIRBASE*  1*2  IS  THE  INVULNERABLE  AIRBASE. 

K  *  1 

0. 

0. 

.  5000 

0. 

.  5000 

0. 

.  5000 

.  5000 

.8000 

.  0000 

K  *  2 

0. 

0. 

.  5000 

0. 

.  5000 

0. 

.  5000 

.  5000 

.  8000 

.  8000 

K  *  3 

0. 

0. 

0. 

0. 

0. 

0. 

.  8000 

.  5000 

.  9000 

.  8000 

VARIABLE 

-- —  AVAL  ED ( 

5  *  2* 

0) 

( L  *  I A  T  F  )  AVAILABILITY  FACTOR  FOR  RED  ESCORT  AIRCRAFT  PERFORMING  AIR¬ 
BASE  DEFENSE  WHEN  THE  (BLUE)  TASK  FORCE  IS  IN  LOCATION  L  AND 

I  AT  F  *  1  —  RED  WILL  ATTACK  TASK  FORCE  LATER  IN  THE  DAY 

IATF  =  2  — RED  WILL  NOT. 

.  1000 

.  8000 

.1100 

.  8100 

.  1200 

.  8200 

.1300 

.  8300 

.  1400 

.  8400 

VARIABLE 

- A WRC  B  B  ( 

1*  0* 

0) 

ATTRITION  WEIGHT  FOR  RED  SHIPS  CROSSING  BLUE  SUBMARINE  BARRIERS. 
(VALUE  SHOULD  BE  BETWEEN  0.0  AND  1.0*  INCLUSIVE.) 

.  5000 

VARIABLE 

- B  AC  C  DW  ( 

6,  0* 

0) 

(KBS)  COUNTERDETECTION  WIDTH  (DIAMETER)  OF  ASW  AIRCRAFT  FROM  A  BLUE 
SHIP  OF  KIND  KBS  AGAINST  RED  BARRIER  SUBMARINES.  (NMI) 

KBS-1  IS  FOR  XPLAT*  KBS  =  2  IS  FOR  X  E  A A  W  *  KBS*3  IS  FOR  XEASWA* 

K B S  =  4  IS  FOR  XEASWN*  KBS  =  5  IS  FOR  XURGS*  KB$  =  6  IS  FOR  BSSNDS. 

0. 

0. 

20.00  0.  0.  0. 

VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIARLE  - 


VARIABLE  - 


VARIABLE  - 


—  BACPCM  6,  0,  0) 

.3000  0. 

—  BAREACM  5,  0,  0) 

1900.  1900. 

—  3 A  R  E  L  Q (  5#  0,  0) 

1900.  1900. 

~  BARLQ  (  5 9  0,  0) 

500.0  500.0 

--  3  AR  L  TH  (  5 ,  0,  0) 

10.00  200.0 

—  BECOW  (  6  ,  0,  0) 

9.000  5.000 

—  BEDW  (  10,  0,  0) 

10.00  10.00 

—  B  MT  M I N  (  5,  0,  0) 

40.00  30.00 

—  B  S I B  AR (  5,  0,  0) 


(KBS)  CONDITIONAL  PROBABILITY  OF  COUNTERKILL  GIVEN  DETECTION  OF  A 
RED  BARRIER  SUBMARINE  BY  A  BLUE  SHIP  OF  TYPE  KBS. 

SEE  BACCDW  FOR  DEFINITION  OF  KBS. 

.2000  0.  0.  0. 


(L)  THE  AREA  OF  THE  OUTER  ASW  SCREEN  THAT  CAN  BE  COVERED  BY  A  SINGLE 
SEA-BASED  ASW  AIRCRAFT  STATION  IN  LOCATION  L.  (NMI++2) 

1900.  1900.  1900. 

(L)  THE  AREA  OF  THE  OUTER  ASW  SCREEN  THAT  CAN  BE  COVERED  BY  A  SINGLE 
LAND-BASED  ASW  AIRCRAFT  STATION  IN  LOCATION  L.  (NMI++2) 

1900.  1000.  400.0 


(L)  THE  LENGTH,  OR  CIRCUMFERENCE,  OF  THE  OUTER  ASW  SCREEN  IN  LOCATION 
L.  (  N  MI  ) 

1000.  1000.  1000. 


(IBAP)  LENGTH  OF  BARRIER  BETWEEN  REGIONS  IBAR-1  AND  IBAR.  (NMI) 
BARLTH(IBAR)  SHOULD  NOT  BE  ZERO  UNLESS  I C  T  L  C  IBAR)  IS  ZERO.  (SEE  ICTL) 
100.0  50.00  150.0 

(KBS)  COUNTERDETECTION  WIDTH  OF  BLUE  SHIP  OF  KIND  KBS  AGAINST  RED  BAR¬ 
RIER  SUBMARINES.  (NMI) 

SEE  BACCDW  FOR  DEFINITION  OF  KBS. 

8.000  8.000  2.000  8.000 


(KRS)  EFFECTIVE  DETECTION  WIDTH  (DIAMETER)  OF  A  BLUE  BARRIER  SUBMARINE 
AGAINST  RED  PENETRATING  SHIPS  OF  KIND  KRS.  (NMI) 

15.00  20.00  0.  0.  0.  0. 

(L)  MINIMUM  NUMBER  OF  RED  BOMBERS  (TOTALED  OVER  ALL  TYPES)  REQUIRED 
TO  LAUNCH  AN  ATTACK  AGAINST  THE  TASK  FORCE  WHEN  THE  TASK  FORCE  IS  IN 
LOCATION  L. 

20.00  10.00  0. 


(IBAR)  NUMBER  OF  BLUE  SUBMARINES  IN  8ARRIER  BETWEEN  REGIONS  IBAR-1 
AND  IBAR. 

10.00 


0 


10.00 


0 


0 


VMM  al-ll 


NUMBER  OF  BLUE  DIRECT-SUPPORT  SUBMARINES 


VARIABLE 


VARIABLE 


4. COO 

-  BUCAP  <  1, 

6.000 

- C  AC  U W  0  (  1# 

35.00 


0,  0) 

THE  NUMBER  OF  SEA-BASED  AIRCRAFT  REQUIRED  TO  SUPPORT  ONE  CAP  STATION. 


Oj  0) 

INITIAL  CARRIER  A$W  AIRCRAFT  COUNTERDETECTION  WIDTH  AGAINST  RED  BAR¬ 
RIER  SUBMARINES.  (NMI) 


VARIABLE - C  A  P  ML  Q (  5, 

0.  0. 


0, 


0  ) 


(L)  THE  NUMBER  OF  CAP 
STATION  WHEN  THE  TASK 
0.  1.000 


STATIONS  ASSIGNED  TO  DEFEND  EACH  LAND-BASED  A  E  W 
FORCE  IS  IN  LOCATION  L. 

1.500 


VARIABLE - C  A  P  MO  ( 

5,  0, 

0) 

(L)  THE 

NUMBER  OF  CAP 

STATIONS  ASSIGNED  TO 

DEFEND  EACH  SEA-BASED  AEW 

STATION 

WHEN  THE  TASK 

FORCE  IS  IN  LOCATION 

L. 

1.000 

1.000 

1.000 

1.500 

2.000 

O 

\ 

KO 


VAR  I ABLF 

-  CAPMR  ( 

It  o, 

0  ) 

THE 

RANGE  OF 

THE  AIR-TO-AIR  MISSILES 

CARRIED 

BY  CAP  AIRCRAFT. 

(nmi) 

50.00 

VARIABLE 

- C  A  P  S  TO ( 

5,  0, 

0  ) 

(L) 

THE  CAP 

STATION  RADIUS  FROM  THE 

CENTER  OF 

THE  TASK  FORCE 

IN 

LOCATION  L. 

( NMI  > 

400.0 

300.0 

200.0 

100.0  100.0 

VARIABLE  -  CPAGV  (  1,  0,  0) 

CONDITIONAL  PROBABILITY  OF  RED  8ARRIER  ATTACK  ON  A  CARRIER*  GIVEN  THAT 
CARRIER  IS  VULNERABLE  TO  DETECTION. 

.  5000 


VARIABLE - CPBPK  (  6,  0*  0) 

(KBS)  CONDITIONAL  PROBABILITY  THAT  BLUE  PENETRATING  SHIP  OF  KIND  KBS 
IS  KILLED  (GIVEN  DETECTION  BY  RED  BARRIER). 

SEE  BACCDW  FOR  DEFINITION  OF  KBS. 

.8000  .8000  .0000  .8000  .8000  .7000 


VARIABLE - C  P  B  S  C  K (  10,  0,  0) 

<KR$)  CONDITIONAL  PROBABILITY  THAT  A  BLUE  BARRIER  SUBMARINE,  DETECTED 
BY  A  RED  PENETRATING  SHIP  OF  KIND  KRS,  IS  C OUN T E RK I L L E D . 

,3000  .3000  .2000  .2000  0.  0.  0.  0.  0.  0. 


01 -I 


O 


VARIABLE  -  CPRPK  (  10,  0,  0) 

(KRS)  CONDITIONAL  PROBABILITY  THAT  A  RED  PENETRATING  SHIP  OF  KIND  KRS 
IS  KILLED. 

.4500  .4500  .7500  .7500  0.  0.  0.  0.  0. 


VARIABLE - C  P  R  SC  K (  6,  0,  0) 

(KBS)  CONDITIONAL  PROBABILITY  THAT  A  RED  BARRIER  SUBMARINE  IS  COUNTER- 
KILLED  BY  A  BLUE  SHIP  OF  TYPE  KBS. 

SEE  B ACC  DW  FOR  DEFINITION  OF  KBS. 

.1000  .1000  .1500  .1500  0.  .2000 

VARIABLE - C  S  C  D WO (  1,  0,  0) 

INITIAL  CARRIER  SONAR  COUNTERDETECTION  WIDTH  AGAINST  RED  BARRIER  SUB¬ 
MARINES.  ( NM I  ) 

10.00 


0. 


0) 

(KRS)  FRACTION  OF  RED  SHIPS  OF  KIND  KRS  CONDUCTING  THE  DDAY  ATTACK 
THAT  ATTACK  CARRIERS. 

**NOTE**INPUT  VARIABLES  STARTING  WITH  THE  LETTERS  DD  OR  IDD  ARE  USED 
IN  SUBROUTINE  DDAY. 

.5000  .4000  0.  0.  0.  0.  0.  0. 

0) 

(KRS)  PROBABILITY  OF  KILL  FOR  A  SHOT  FROM  A  RED  SHIP  OF  KIND  KRS 
AGAINST  A  CARRIER  ON  DDAY. 

. 7000E-01  . 6000E-01  .5000E-01  .4000E-01  0.  0.  0.  0.  0.  0. 

VARIABLE  -  DDPKS  (  10,  0,  0) 

(KPS)  PROBABILITY  OF  KILL  FOR  A  SHOT  FROM  A  RED  SHIP  OF  KIND  KRS 
AGAINST  A  BLUE  SHIP  THAT  IS  NOT  A  CARRIER  (REGARDLESS  OF  KIND  OF 


BLUE  SHIP)  ON 

1  DDAY. 

.  1400 

.1300 

. 8000E-01 

. 7000E 

-01  0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE 

- DDR K A A  ( 

10,  0, 

0) 

(KRS)  NUMBER 

OF  RED 

SHIPS  OF 

KINO 

KRS  KILLED 

AFTER 

THE  RED 

DDAY 

ATTACK  ON  BLUE. 

1 .000 

1 .000 

1.000 

1.000 

0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE 

-  DDRKBA ( 

10,  0, 

0) 

(KRS)  NUMBER 

OF  RED 

SHIPS  OF 

KIND 

KRS  KILLED 

BEFORE 

THE  RED 

DDAY 

ATTACK  ON  BLUE. 

1.000 

1 .000 

1.000 

1.000 

0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE 

- DDR  S  A  ( 

10,  0, 

0) 

(KRS)  NUMBER 

OF  RED 

SHIPS  OF 

KIND 

KRS  THAT  WILL  (IF 

ALIVE  ) 

ATTACK 

BLUE  ON  DDAY. 

2.000 

1 .000 

1.000 

2.000 

0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE - DD  F  AC  (  10,  0, 

.7000  .6000 

VARIABLE  -  DDPKC  (  10,  0, 


VARIABLE - DDSPA 

1  .  6  00 


10,  0, 

?  .  non 


0) 

(KRS)  SHOTS  PER  ATTACKING  RED  SHIP  OF  KIND  KRS  ON  DDAY. 

P.000  1 .000  0.  0.  0. 


0. 


0. 


0. 


II- 


o 


VARIABLE  - IJL1A  (  i,  Of  0) 

FIGHTER  AVAILABILITY  FACTOR  FOR  DL I . 

SEE  IDA  REPORT  R-245  FOR  ADDITIONAL  INFORMATION, 

.  6700 


VARIABLE - DIT 


400.0 
200.  0 


2,  3,  0) 

(I,K)  1=1  GIVES  THE  DISTANCE  FROM  TASK  FORCE  CENTER  TO  THE  ASM  RELEASE 
LINE  OF  RED  BOMBERS  OF  TYPE  K.  (NMI) 

1=2  GIVES  THE  AVERAGE  DISTANCE  FROM  TASK  FORCE  CENTER  TO  THE 
POINT  AT  WHICH  RED  BOMBERS  OF  TYPE  K  TURN 

AROUND — AFTER  REACHING  THIS  POINT  ATTACKING  AIRCRAFT  ARE  INVULNERABLE. 
250.0  200.0 

200.0  100.0 


VARIABLE - D2T 


400,0 

200.0 


2,  3  ,  0) 

(  I  ,  K  )  1*1  GIVES  THE  AVERAGE  DISTANCE  FROM  CARRIERS  LAUNCHING  DLIS  TO 
THE  TYPE-K  RED  BOMBERS  ASM  RELEASE  LINE.  (NMI) 

1=2  GIVES  THE  AVERAGE  DISTANCE  FROM  CARRIERS  LAUNCHING  DLIS  TO  THE 
POINT  AT  WHICH  RED  BOMBERS  OF  TYPE  K  TURN 

AROUND— AFTER  REACHING  THIS  POINT  ATTACKING  AIRCRAFT  ARE  INVULNERABLE. 
250.0  200.0 

200.0  100.0 


VARIABLE  -  ENACDS (  10,  0,  0) 

(KRS)  EXPECTED  NUMBER  OF  AIRCRAFT  (FIGHTERS  AND  ATTACKERS)  DESTROYED 
WHEN  A  SHOT  FROM  A  RED  SURFACE  SHIP  OF  TYPE  KRS  HITS  A  FULL  CARRIER. 

NOTE—  KR  S  =  1 , 2  ARE  SUBMARINES,  AND  SO  ENTRIES  FOR  ENACDS(l)  AND 
E  N AC  DS ( 2 )  ARE  NOT  USED. 

0.  0.  1.500  .5000  0.  0.  0.  0.  0. 


VARIABLE  -  ENACDTt  4,  0,  0) 

(K)  EXPECTED  NUMBER  OF  AIRCRAFT  (FIGHTERS  AND  ATTACKERS)  DESTROYED 
WHEN  AN  ASM  OF  TYPE  K  HITS  A  FULL  CARRIER 
—  K *NKRB  + 1  IS  FOR  ASMS  LAUNCED  FROM  RED  SUBMARINES. 

2.000  1.000  .5000  0. 


VARIABLE  -  ESLR  (  l,  0,  0) 

THE  LETHAL  RANGE  OF  ASW  ESCORTS  FIRING  ANTISUBMARINE  MISSILES  OR 
TORPEDOES.  (NMI) 

8.000 


VARIABLE - ESRO  (  5,  0,  0) 

(L)  THE  ASW  ESCORT  STATION  RADIUS  FROM  THE  CENTER  OF  THE  TASK  FORCE  IN 
LOCATION  L.  (NMI) 

8.000  10.00  15.00  15.00  15.00 


VARIABLE - F  A  AC  A  (  5,  0,  0) 

(L)  FRACTION  OF  BLUE  ATTACK  AIRCRAFT  THAT  WILL  PERFORM  AIRBASE  ATTACK 
WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L.  (AIRCRAFT  ON  CARRIERS  ONLY.) 
.5000  .5100  .5200  .5300  .5400 


21- 


VARIABLE 


- F  AC  CIB 

J 


.  5100 
.  5200 
.  5300 
.  7400 
.  7500 


5  ,  2 ,  0) 

<KRA,IATF)  FRACTION  OF  RED  AIRCRAFT  OF  KIND  KRA  ON  THE  VULNERABLE  RED 

AIRBASE  WHEN -  IATF=1 — RED  WILL  ATTACK  TASK  FORCE  LATER  IN  THE  CLOCK 

TIME  PERIOD, - I ATF  *2  —  RED  WILL  NOT. 

KR A* 1 , NKRB  FOR  BOMBERS,  KRA-NKRB+1  FOR  ESCORTS,  KRA-NKRB+2  FOR  INTCT 

.7100 
.  7200 
.  7300 
.  7400 
.  7500 


O 


VARIABLE 

-  FFACA  ( 

5, 

0, 

0) 

.  4000 

.4100 

(L)  FRACTION  OF  BLUE 
WHEN  THE  TASK  FORCE 
•4200  .4300 

FIGHTER  AIRCRAFT  THAT  WILL  PERFORM  A I R 8 AS E 
IS  IN  LOCATION  L. 

.  4400 

ATTACK 

VARIABLE 

-  FFACE  ( 

5, 

0, 

0  ) 

.  2000 

.2100 

(L)  FRACTION  OF  BLUE 
ESCORT  WHEN  THE  TASK 
•  2200  .2300 

FIGHTER  AIRCRAFT  THAT  WILL  PERFORM  AIRBASE 
FORCE  IS  IN  LOCATION  L. 

.2400 

ATTACK 

VARIABLE 

-  FHSK  ( 

2, 

0, 

0) 

.  2200 

.  3200 

(I)  FRACTION  OF  HIT 

1  =  1 — HIT  BY  A  BLUE 
1  =  2 — HIT  BY  A  BLUE 

RED  AIRCRAFT  SHELTERS  THAT  ARE  DESTROYED. 
ATTACK  AIRCRAFT 

FIGHTER  AIRCRAFT  DOING  AIRBASE  ATTACK 

VARIABLE - FM3  (  6,  0,  0) 

(KBS)  FRACTION  OF  SHIPS  OF  KIND  KBS  CROSSING  BARRIER  IN  FIRST  WAVE, 

IF  BARRIER  CROSSING  PROTOCOL  3  IS  USED. 

SEE  BACCDW  FOR  DEFINITION  OF  KBS. 

°*  0.  1.000  1.000  .2000  .5000 
VARIABLE  -  FPPL1  (  1,  0,  0) 

THE  NUMBER  OF  INCOMING  ASMS  THAT  CAN  BE  FIRED  AT  BY  A  CARRIERtS  POINT 
DEFENSE  SAMS. 

7.000 


VARIABLE  -  FPPL2  (  1,  0,  0) 

THE  NUMBER  OF  INCOMING  ASMS  THAT  CAN  BE  FIRED  AT  BY  A  CARRIERtS  POINT 
DEFENSE  GUNS. 

1.000 


VARIABLE  -  FSTAO  (  5,  0,  0) 

(L)  FRACTION  OF  MISSLE  SUBMARINES  IN  LOCATION  L  THAT  FIRE  AT  THE  TASK 
FORCE  DURING  A  TIME  PERIOD  IN  WHICH  A  SUBMARINE  ATTACK  IS  PLANNED. 
1.000  1.000  1.000 


1000 


5000 


ET-: 


a 


VARIABLE - F  S  TG AO (  5,  0# 

.1000  .5000 

VARIABLE - HR  M A  AW (  1#  0, 

1.000 

VARIABLE - H  R  M  A  S  W  (  1.  0, 

1 . 000 

VARIABLE - HR  M  UR  G (  1*  0, 

1 .000 

VARIABLE - HP  T  A A  W (  If  0 j 

1 . 000 

VARIABLE - HR  T  A  $  W  (  If  0, 

1.000 

VARIABLE - HR  T  UR  G (  If  Of 

1 . 000 

VARIABLE - I  A  AD A  (  If  Of 

0 


0) 

( L )  FRACTION  OF  TORPEDO  SUBMARINES  IN  LOCATION  L  THAT  FIRE  AT  THE  TASK 
FORCE  DURING  A  TIME  PERIOD  IN  WHICH  A  SUBMARINE  ATTACK  IS  PLANNED. 
1.000  1.000  1.000 


0) 

NUMBER  OF  MISSLE  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  A  A  W  SHIP. 


0) 

NUMBER  OF  MISSLE  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  ASW  SHIP. 


0) 

NUMBER  OF  MISSLE  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  URG  SHIP. 


0) 

NUMBER  OF  TORPEDO  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  A AW  SHIP. 


0) 

NUMBER  OF  TORPEDO  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  ASW  SHIP. 


0) 

NUMBER  OF  TORPEDO  HITS  (ONLY)  REQUIRED  TO  NEUTRALIZE  AN  URG  SHIP. 


ATTRITION  METHOD  USED  FOR  COMPUTING  KILLS  IN  THE  BLUE  ATTACKER/RED 
DEFENDER  AIR-TO-AIR  INTERACTION  IN  SUBROUTINE  ABATCK.  (THIS  VARIABLE 
IS  NOT  CURRENTLY  USED.  ) 


VARIABLE  -  IAAED  (  If  Of  0) 

ATTRITION  METHOD  FOR  COMPUTING  KILLS  IN  THE  BLUE  ESCORT/RED  DEFENDER 
INTERACTION  IN  ABATCK.  =0  IF  ESCORTS  CONCENTRATE  FIRE# 

•1  IF  ESCORTS  CONSERVE  FIRE. 


VARIABLE - I  A  B  A  E  Q (  If  Of  0) 

INDEX  OF  ATTRITION  METHOD  USED  TO  COMPUTE  RED  LOSSES  FROM  AIRBASE 
ATTACK  BY  BLUE  (SUBROUTINES  ABATCK  AND  ATRTAB) 

I AB AE  Q* 1 —  SHELTERS  ATTACKED  ONLY  IF  NO  OPEN  AIRCRAFT  ARE  DETECTED 

*  2  —  ATTACKERS  OPTIMALLY  ALLOCATED  TO  SHELTERED  VS  OPEN  AIRCRAFT 
=3— SHELTERS  AND  OPEN  AIRCRAFT  ARE  ON  SAME  PARKING  AREAS 


1 


t?T- 


VARIABLE - 1AI5AF  (  1,  0,  0) 

ATTRITION  METHOD  USED  FOR  COMPUTING  KILLS  IN  THE  BLUE  AIRBASE  ATTAC¬ 
KER/RED  SAM  INTERACTION.  (THIS  VARIABLE  IS  NOT  CURRENTLY  USED.) 

0 

VARIABLE - I A  B  AW  (  1,  0,  0) 

ATTRITION  WEIGHTING  SCHEME  USED  IN  THE  BLUE  AIRBASE  ATTACKER/RED  SAM 
INTERACTION.  I  A B A W - 1 -- WE  I GHT I NG  BY  TOTAL  NUMBER  OF  SHOTS  BY  SAMS. 

(SEE  CODE.)  I  A  B  A  W  =  2 —  WEIGHTING  BY  NUMBER  OF  SAM  FIRE  CONTROL  CENTERS. 

1 

VARIABLE - I  A  T  KR  T (  5,  0,  0) 

(L)  INVERSE  OF  THE  ATTACK  RATE  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 
E.G.,  IATKRT  (L  )  *  1  MEANS  RED  ATTACKS  EACH  TIME  PERIOD, 

IATKRT (L  )  a  2  MEANS  RED  ATTACKS  EVERY  OTHER  TIME  PERIOD, 

IATKRT  <L  )  =  3  MEANS  RED  ATTACKS  EVERY  THIRD  TIME  PERIOD,  ETC. 

1000  4321 

VARIABLE - I  AT  R I  A (  1,  0,  0) 

INDEX  FOR  ATTRITION  FUNCTION  TO  BE  USED  IN  SUBROUTINE  ATRTIA  — 

=1  FOR  INDEPENDENT  TARGETING, 

=2  FOR  COORDINATED  TARGETING. 

1 

VARIABLE  -  ICTL  (  5,  0,  0) 

(IBAR)  INDICATOR  FOR  CONTROL  OF  BARRIER  BETWEEN  REGIONS  IBAR-1  AND 
IBAR,  0 — NO  BARRIER  PRESENT 

1  —  BLUE  CONTROLS  BARRIER  (THEN  RSIBAR(IBAR)  IS  EFFECTIVELY  ZERO) 
2 — RED  CONTROLS  BARRIER  (THEN  BSIBAR(IBAR)  IS  EFFECTIVELY  ZERO) 
3  — BOTH  BLUE  AND  RED  HAVE  BARRIERS 
0  13  0  2 

VARIABLE  -  1DDAC  (  I,  0,  0) 

ATTRITION  EQUATION  USED  TO  COMPUTE  ATTRITION  TO  BLUE  CARRIERS  ON  DDAY. 

I  0  D AC  *  1  —  NO  COORDINATION  OF  RED  FIRE. 

IDDAC»2--PERFECT  COORDINATION  OF  RED  EIRE. 

2 

VARIABLE  -  IDDAS  (  1,  0,  0) 

ATTRITION  EQUATION  USED  TO  COMPUTE  ATTRITION  TO  BLUE  NON-CARRIER  SHIPS 
I DD  AS  *  1  —  NO  COORDINATION  OF  RED  FIRE. 

IDDA$«2— PERFECT  COORDINATION  OF  RED  FIRE. 

USED  IN  DDAY  CALCULATIONS. 

1 

VARIABLE  -  IKRAS  (  5,  0,  0) 

(KRA)  1  IE  RED  AIRCRAFT  OF  KIND  KRA  CAN  FIT  INTO  SHELTERS 
0  IF  THEY  CANNOT 

KRA  *  1, NKRB  FDR  BOMBERS,  KRA*NKRB  +  1  FOR  ESCORTS,  KR  A  *  N  KR  B ♦ 2  FOR  INTCT 
0  1  1 


0 


1 


si- 


VARIABLE  -  IPLADAI  1,  0,  0) 

INDEX  FOR  ATTRITION  METHOD  USED  IN  DEFENDERS  VS  ATTACKERS 
INTERACTIONS  WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED  AIR  BARRIER. 
(THIS  INPUT  IS  NOT  CURRENTLY  USED.) 

0 

VARIABLE  -  IPLAEDI  1.  0,  0) 

INDEX  FOR  ATTRITION  METHOD  USED  IN  ESCORTS  VS  DEFENDERS 
INTERACTIONS  WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED  AIR  BARRIER. 

=0  IF  ESCOPTS  DO  NOT  CONSERVE  FIRE  FOR  LATER  INTERACTIONS. 

=1  IF  ESCORTS  CONSERVE  FIRE  FOR  LATER  INTERACTIONS. 

1 

VARIABLE  -  IPPAF  (  1.  0,  0) 

INDEX  FOR  ATTRITION  FUNCTION  FOR  RED  SAM/BLUE  AIRCRAFT  INTERACTIONS 
ON  POWER  PROJECTION  MISSIONS.  (NOT  CURRENTLY  USED) 

0 

VARIABLE  -  IPPAW  (  1.  0,  0) 

INDEX  FOR  ATTRITION  WEIGHTING  METHOD  USED  IN  RED  SAM/BLUE  AIRCRAFT 
INTERACTIONS  ON  POWER  PROJECTION  MISSIONS. 

I P P AW  =  1  —  WEIGHT  BY  TOTAL  NUMBER  OF  SHOTS  BY  SAMS. 

IPPAW-2  —  WEIGHT  BY  NUMBER  OF  SAM  FIRE  CONTROL  CENTERS. 


VARIABLE  -  IRSUBAl  5.  0,  0) 

(L)  INDEX  GIVING  RESTRICTION  ON  WHEN  RED  SUBS  CAN  ATTACK  THE  TASK 
FORCE  GIVEN  THAT  THE  TASK  FORCE  IS  IN  LOCATION  L  — 

0  *  NO  RESTRICTION.  ALL  SUBS  CAN  ATTACK  EVERY  TIME  PERIOD 

1  *  TORPEDO  SUBS  CAN  ATTACK  ALWAYS.  MISSLE  SUBS  ATTACK  ONLY  WITH  AIR 

2  =  ALL  SUBS  ATTACK  ONLY  WHEN  REO  AIRCRAFT  ALSO  ATTACK  THE  TASK  FORCE 
0  112  2 

VARIABLE  -  ISSBR  (  1.  0,  0) 

IN  SUBROUTINE  SHPSHP,  INDICATOR  FOR  DETECTION  AND  ATTACK  PROTOCOL  FOR 
BLUE  SURFACE  SHIPS  ATTACKING  RED  SURFACE  SHIPS. 

I  S  S  B  R  =  0 — DIFFERENT  BLUE  SHIPS  DETECT  INDEPENDENTLY  OF  ONE  ANOTHER. 

I S  S  B  R  =  1  —  TASK  FORCE  DETECTS  AS  AN  INTEGRATED  UNIT. 

(SEE  ALSO  THE  DEFINITIONS  OF  VARIABLES  SSPBDR  AND  SSPRDB.  BELOW.) 

1 

VARIABLE  -  ISSRB  (  1,  0,  0) 

IN  SUBROUTINE  SHPSHP,  INDICATOR  FOR  DETECTION  AND  ATTACK  PROTOCOL  FOR 
RED  SURFACE  SHIPS  ATTACKING  BLUE  SURFACE  SHIPS. 

I SS  R  B 3  0 — A  RED  SHIP  DETECTS  DIFFERENT  BLUE  SHIPS  INDEPENDENTLY. 
ISSRB-l — A  RED  SHIP  DETECTS  EITHER  THE  ENTIRE  TASK  FORCE  OR  NOTHING. 
(SEE  ALSO  THE  DEFINITIONS  OF  VARIABLES  SSPBDR  AND  SSPRDB,  BELOW.) 


0 


9T-i 


O 


VARIABLE 

LGTHMP ( 

6  f 

0, 

0) 

II)  IEGNTH  (IN  TERMS  OF  NUMBER  OF  TIME  PERIOOS)  OF 

MOVEMENT  PERIOD  I. 

1 

I 

122  1000 

VARIABLE 

— 

LTFMP  ( 

6  9 

Of 

0) 

(I)  LOCATION  OF  THE  TASK  FORCE  DURING  MOVEMENT  PERIOD  I. 

1 

1 

2  3  A  5 

VARIABLE 

— 

M A  X  TP  ( 

1  f 

0, 

0) 

MAXIMUM  NUMBER  OF  TIME  PERIODS  TO  BE  SIMULATED. 

30 

VARIABLE 

— 

MIMP  ( 

Ip 

Of 

0) 

6 

MAXIMUM  NUMBER  OF  MOVEMENT  PERIODS  TO  BE  SIMULATED. 

VARIABLE 

_ 

N  A  B  S  AM ( 

Ip 

Of 

0) 

2 

NUMBER  OF  KINDS  OF  RED  SAM  DEFENDING  THE  VULNERABLE 

RED  AIRBASE. 

VARIABLE 

_ 

NEPD  ( 

Ip 

0, 

0) 

0 

DUMMY  VARIABLE  USED  ONLY  BY  SUBROUTINE  INP. 

VARIABLE 

— 

NKBDPL  I 

Ip 

Of 

0) 

NUMBER  OF  KINDS  (TYPES)  OF  BLUE  DEFENDING  AIRCRAFT 

THAT  FORM  THE  BLUE 

2 

LAND-BASED  AIR  BARRIER. 

VARIABLE 

_ 

NKRB  ( 

It 

Of 

0) 

3 

NUMBER  OF  DIFFERENT  KINDS  (TYPES)  OF  RED  BOMBERS. 

VARIABLE 

_ 

NKRS  ( 

If 

0, 

0) 

NUMBER  OF  KINDS  OF  RED  SHIP.  KINDS  1  AND  2  ARE  TORPEDO  SUBMARINES  AND 

4 

CRUISE  MISSILE  SUBMARINES*  RESPECTIVELY. 

VARIABLE 

— 

NLOC  ( 

If 

Of 

0) 

NUMBER  OF  POSSIBLE  REGIONS  (EXCLUDING  REGION  ZERO) 

IN  WHICH  THE  TASK 

5 

FORCE  CAN  BE  LOCATED. 

VARIABLE 

— 

NPPSAM ( 

If 

Of 

0  ) 

NUMBER  OF  TYPES  OF  RED  SAMS  INVOLVED  IN  BLUE  POWER 

PROJECTION 

2 

INTERACTIONS . 

VARIABLE - P  A  F  C  N  F (  1>  0#  0) 


O 

I 


1.000 

VARIABLE - PARK  ( 

3.000 

VARIABLE - PASS  ( 


variable  -- 


2. COO 
—  PBDRN  ( 


.  8700 

VARIABLE  -  PBOPS  ( 

.4  700 

VARIABLE  -  PBKRN  ( 


VARIABLE  - 


VARIABLE  — 


VARIABLE  - 


,  7600 

-  PBKRS  ( 

►  2  600 

-  PD  I N  i 

.  2000 

-  P  F  FCNF ( 


It  0,  0) 

2  #  0  #  0  ) 

2 .500 

2  #  0,  0) 

.  8700 

2  9  0,  0) 

.4700 

2,  0,  0) 

.  7700 

2,  0,  0) 

.  2700 

If  0,  0) 

1'  0,  0) 


PROBABILITY  THAT  AN  ATTACK  AIRCRAFT#  WHICH  HAS  ALPEADY  FLOWN  A  SORTIE 
DURING  A  CLOCK  TIME  PERIOD#  CANNOT  FLY  ANOTHER  SORTIE  DURING  THAT 
CLOCK  TIME  PERIOD. 


NUMBER  OF  PARKING  AREAS  FOR  RED  AIRCRAFT  ON  A  TYPICAL  ACTUAL  AIRBASE. 


(I)  NUMBER  OF  GROUND  TARGETS  THAT  CAN  BE  ENGAGED  ON  AN  ABA  SORTIE. 
1*1  — BY  A  BLUE  ATTACK  AIRCRAFT 

1*2 — by  A  BLUE  FIGHTER  AIRCRAFT  DOING  AIRBASE  ATTACK 


(I)  PROBABILITY  A  BLUE  AIRCRAFT  ON  AIRBASE  ATTACK  DETECTS  A  RED  NON- 
SHELTERED  AIRCRAFT.  1*1  —  BLUE  ATTACK  AIRCRAFT 

1*2 — BLUE  FIGHTER  AIRCRAFT  DOING  AIRBASE  ATTACK 


(1)  PROBABILITY  A  BLUE  AIRCRAFT  ON  AIRBASE  ATTACK  DETECTS  A  RED 
SHELTER. 

SEE  PBDRN  FOR  THE  DEFINITION  OF  I. 


(I)  PROBABILITY  A  BLUE  AIRCRAFT  ON  AIRBASE  ATTACK  KILLS  A  RED  NON- 
SHELTERED  AIRCRAFT  (GIVEN  DETECTION). 

SEE  PBDRN  FOR  THE  DEFINITION  OF  I. 


(I)  PROBABILITY  A  BLUE  AIRCRAFT  ON  AIRBASE  ATTACK  KILLS  A  RED  SHELTER. 
SEE  PBDRN  FOR  THE  DEFINITION  OF  I. 


THE  PROBABILITY  THAT  A  SUBMARINE  IS  DETECTED  BY  THE  ASW  ESCORTS. 
SEE  IDA  REPORT  R-245  FOR  ADDITIONAL  INFORMATION. 


PROBABILITY  THAT  A  FIGHTER  AIRCRAFT#  WHICH  HAS  ALREADY  FLOWN  A  SORTIE 
DURING  A  CLOCK  TIME  PERIOD#  CANNOT  FLY  ANOTHER  SORTIE  DURING  THAT 
CLOCK  TIME  PERIOD. 


.  5000 


-18 


O 


VARIABLE 

-  PKASW  ( 

1# 

0, 

0) 

.  5000 

THE  PROBABILITY  OF  KILL*  GIVEN  DETECTION,  OF  A  SUBMARINE  (BOTH  MISSILE 
AND  TORPEDO)  BY  AN  ASW  AIRCRAFT  ON  THE  OUTER  SCREEN.  NO  DISTINCTION 

IS  MADE  BETWEEN  LAND-  OR  SEA-BASED  ASSETS. 

VARIABLE 

-  PKAT1  ( 

1> 

0, 

0) 

.  8000 

PROBABILITY  OF  KILL  OF  AN  ATTACKING  BOMBER  OR  ESCORT  BY  A  SALVO  OF 
AIR-TO-AIR  MISSILES  FIRED  FROM  TASK  FORCE  AIRCRAFT. 

VARIABLE 

-  PKDF1  ( 

1  * 

0, 

0  ) 

•  7500 

PROBABILITY  OF  KILL  OF  A  DEFENDING  FIGHTER  (CAP  OR  DLI)  BY  A  SALVO  OF 
AIR-TO-AIR  MISSILES  FIRED  FROM  RED  ESCORT  AIRCRAFT. 

VARIABLE 

-  PKIIN  ( 

1, 

0, 

0) 

.  1500 

THE  KILL  PROBABILITY  BY  ASW  MISSILE  OR  T  DR  P  E  DO  OF  A  SUBMARINE  THAT 
COMES  WITHIN  ESLR  OF  AN  ASW  ESCORT. 

VARIABLE 

-  PKIN  ( 

Ip 

0, 

0) 

.  5000 

THE  PROBABILITY  THAT  A  SUBMARINE  PROSECUTED  BY  AN  AIRCRAFT  FROM  AN 
AIR-CAPABLE  ASW  ESCORT  WILL  BE  DESTROYED. 

VARIABLE 

-  PKPLD T( 

A  p 

0, 

0) 

(K)  THE  FRACTION  OF  INCOMING  ASMS  LAUNCHED  FROM  TYPE-K  REO  BOMBERS 

THAT  ARE  EITHER  DEFEATED  BY  A  CARRIERS  PASSIVE  DEFENSE  SYSTEMS  OR  ARE 
UNRELIABLE  FOR  K* 1 iNKRB 

•  5000 

.  5000 

—  K-NKRB+i  IS  FOR  ASMS  LAUNCHED  FROM  RED  SUBMARINES. 

.5000  .5000 

VARIABLE 

-  PKPL1  ( 

l, 

0, 

0) 

.  7500 

THE  SINGLE  SALVO  PROBABILITY  OF  KILL  OF  INCOMING  ASMS  BY  POINT  DEFENSE 

SAMS. 

VARIABLE 

- PKPL2  ( 

1, 

0, 

0) 

.  3300 

THE  SINGLE  SALVO  PROBABILITY  OF  KILL  OF  INCOMING  ASMS  BY  POINT  DEFENSE 
GUNS  . 

VARIABLE 

-  PKSST  ( 

4, 

0, 

0) 

.7500 

.  7500 

(K)  THE  SINGLE  SALVO  PROBABILITY  OF  KILL  BY  A AW  ESCORTS  OF  INCOMING 

ASMS  LAUNCHED  FROM  TYPE-K  RED  BOMBERS  FOR  K  =  1 >  NKR  B 

K.NKRB+1  IS  FOR  ASMS  LAUNCHED  FROM  RED  SUBMARINES. 

•7500  .7500 

VARIABLE - PL  A  E  D  A (  2,  0,  0) 


VARIABLE 


VARIABLE  -- 


3.000 

—  PL  AEDE  ( 

3.000 

—  PL  A  E  E  D  ( 


3.000 

VARIABLE - PL  3  L  B  D  ( 


0. 

0. 


0. 

2,  0> 

0. 

If  Of 


2,  5j 


72.00 

50.00 


o 

I 


VO 


VARIABLE 


1  .000 

VARIABLE  -  PLFOLLt 

K  *  1 


K  *  2 


0) 


0) 


0) 


1 . 000 

5  t  5  t 


(KBO)  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION  TO  1.0)  THAT  A 
FRESH  BLUE  DEFENDER  OF  TYPE  K  3  D  CAN  MAKE  AGAINST  RED  ATTACKERS 
WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED  AIR  BARRIER. 


(KBD)  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION  TO  1.0)  THAT  A 
FRESH  BLUE  DEFENDER  OF  TYPE  KBD  CAN  MAKE  AGAINST  RED  ESCORTS 
WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED  AIR  BARRIER. 


NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION  TO  1.0)  THAT  A 
FRESH  RED  ESCORT  CAN  MAKE  AGAINST  BLUE  DEFENDERS 
WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED  AIR  BARRIER. 


(KBD, LB)  NUMBER  OF  BLUE  DEFENDING  AIRCRAFT  OF  TYPE  KBD  ON  LAND  BASES 
ASSOCIATED  WITH  LOCATION  LB. 

0.  0.  24.00 

0.  50.00  50.00 


- PL  C  A  (  5,  0,  0) 


2) 


(L)  NUMBER  OF  COMBAT  AREAS  WHEN  RED  PENETRATES  THE  BLUE  LAND-BASED 
AIR  BARRIER  AND  THE  TASK  FORCE  IS  IN  LOCATION  L. 

1.000  2.000  1.000 

(LB,L,K)  FRACTION  OF  BLUE  DEFENDING  AIRCRAFT  OF  TYPE  K  WHOSE  HOME 
AIRBASE  IS  ASSOCIATED  WITH  LOCATION  LB  THAT  PRODUCE  SORTIES  THAT  FORM 
THE  LAND-BASED  AIR  BARRIER  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 


.  5000 

.6000 

.  2000 

0. 

0. 

0. 

,  6000 

.2000 

0. 

0. 

0. 

.  1000 

.  3000 

0. 

0. 

0. 

0. 

0. 

.6000 

.  1000 

0. 

0. 

0. 

.3000 

.2000 

.  2000 

.  3000 

0. 

0. 

0. 

0. 

.  3000 

.1000 

0. 

0. 

0. 

.2000 

.  2000 

.1000 

0. 

0. 

0. 

0. 

.3000 

• 

0. 

0. 

0  . 

.  3000 

• 

2000 


A 


1 


VARIABLE 

- PL  PA  JO ( 

3,  0, 

0  > 

.  5000 

.  5000 

(KRA)  PROBABILITY  THAT  A  TYPE-KRA  RED  ATTACKER,  WHEN  ENGAGED  BY  A  BLUE 
LAND-BASED  DEFENDER,  JETTISONS  ITS  ORDNANCE  AND  RETURNS  FIRE 
(OTHERWISE  IT  ATTEMPTS  TO  OUTRUN  THE  DEFENDER). 

.5000 

VARIABLE 

- PL  PDD A  { 

2  ,  .0, 

0) 

1.000 

1. 000 

(KBD)  PROBABILITY  OF  DETECTION  BY  A  BLUE  TYPE-KBD  LAND-BASED  DEFENDER 
OF  A  RED  ATTACKER  PENETRATING  THE  LAND-BASED  AIR  BARRIER. 

VARIABLE 

- P  L  P  DDE  ( 

2  9  0, 

C) 

1.000 

1 .000 

(KBD)  PROBABILITY  OF  DETECTION  BY  A  BLUE  TYPE-KBD  LAND-BASED  DEFENDER 

OF  A  RED  ESCORT  ENETRATING  THE  LAND-BASED  AIR  BARRIER. 

VARIABLE 

- PL  PDED ( 

1,  0, 

0) 

1 . 000 

PROBABILITY  OF  DETECTION  BY  A  RED  ESCORT  OF  A  BLUE  DEFENDER  WHEN  RED 

IS  PENETRATING  THE  BLUE  LAND-BASED  AIR  BARRIER. 

VARIABLE 

-  PLPKADt 

3 ,  2, 

0) 

0. 

0. 

(KRA, KBD)  PROBABILITY  THAT  A  RED  TYPE-KRA  ATTACKER  KILLS  A  BLUE 

TYPE-KBD  DEFENDER  GIVEN  THAT  RED  IS  PENETRATING  THE  BLUE  LAND-BASED 

AIR  BARRIER  AND  THAT  THE  RED  ATTACKER  HAS  BEEN  ENGAGED  BY  THE  BLUE 
DEFENDER  AND  HAS  JETTISONED  ITS  (AIR-TO-GROUND)  ORDNANCE. 

0 . 

.1000 

0. 

.  2000 

VARIABLE 

- PL  PKDA  ( 

2,  3  , 

0) 

.  6000 
.  4000 

.  8000 
.  5000 

(KBD, KRA)  PROBABILITY  THAT  A  BLUE  TYPE  KBD-DE  FENDE  R  KILLS  A  RED 

TYPE-KRA  ATTACKER  GIVEN  THAT  RED  IS  PENETRATING  THE  BLUE  LAND-BASED 

AIR  BARRIER  AND  THAT  THE  BLUE  DEFENDER  IS  ENGAGING  THE  RED  ATTACKER. 
.5000 
.1000 

VARIABLE 

- PLPKDE  ( 

2  ,  0, 

0) 

.  5000 

.  1000 

(KBD)  PROBABILITY  THAT  A  BLUE  TYPE-KBD  DEFENDER  KILLS  A  RED  ESCORT 

GIVEN  THAT  THEY  ARE  ENGAGED  WHEN  RED  IS  PENETRATING  THE  BLUE  LAND- 
BASED  AIR  BARRIER. 

VARIABLE 

- P  L  P  K  E  D  ( 

2,  0, 

0) 

(KBD)  PROBABILITY  THAT  A  RED  ESCORT  KILLS  A  BLUE  TYPE-KBD  DEFENDER 

GIVEN  THAT  THEY  ARE  ENGAGED  WHEN  RED  IS  PENETRATING  THE  BLUE  LAND- 
BASED  AIR  BARRIER. 

.  1000 


•  2  000 


1Z~ 


O 


VARIABLE 

-  PPAEGS ( 

2  9  0, 

0) 

(KBA)  AVERAGE  NUMBER  OF  ADDITIONAL  GROUND  TARGETS  THAT  A  BLUE  POWER 
PROJECTION  AIRCRAFT  OF  TYPE  KBA  CAN  ENGAGE  AFTER  IT  HAS  ENGAGED  ONE 

RED  SAM  IN  A  S A M-SUP PRE S S I ON  ROLE. 

7.000 

3 .000 

VARIABLE 

-  PRANKS ( 

0, 

0) 

(KRS)  ACTUAL  NUMBER  OF  MISSLES  AVAILABE  FOR  USE  BY  RED  TYPE  KRS  SAMS 
WHICH  ARE  DEFENDING  AGAINST  BLUE  POWER  PROJECTION. 

1000. 

100.0 

VARIABLE 

- P  P  A  VL  S  ( 

2,  5, 

0) 

(KRS,L>  AVAILABILITY  FACTOR  FOR  RED  SAMS  OF  TYPE  KRS  DEFENDING  AGAINST 
BLUE  POWER  PROJECTION  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

1 . 000 

1.000 

,2000  .2000  .2000 

1 .000 

1.000 

.9000  .6000  .6000 

VARIABLE 

- PPAVSS  ( 

2 1  .  0, 

0) 

(KRS)  AVERAGE  NUMBER  OF  POSSIBLE  SHOTS  BY  EACH  T YPE-KRS  RED  SAM  PER 
BLUE  AIRCRAFT  ON  POWER  PROJECTION  MISSIONS  AT  THESE  BLUE  AIRCRAFT. 

.  5000 

1 .000 

VARIABLE 

-  PPCAL  ( 

5  9  0, 

0) 

(L)  NUMBER  OF  COMBAT  AREAS  FOR  B LU E - P OWE R- P RO J E C T I  ON / R E D- S AM 
INTERACTIONS  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

1.000 

1.000 

1.000  1.000  1.000 

VARIABLE 

-  PPF ASM ( 

Zf  0, 

0) 

(KBA)  FRACTION  OF  THOSE  BLUE  TYPE-KBA  AIRCRAFT  ENGAGING  RED  SAMS 

ON  POWER  PROJECTION  MISSIONS  THAT  USE  STANDOFF  MUNITIONS. 

.  5000 

0. 

VARIABLE 

- PPF ASS  ( 

2>  0, 

0) 

(KBA)  FRACTION  OF  BLUE  TYPE-KBA  AIRCRAFT  ON  POWER  PROJECTION  MISSIONS 
THAT  ATTEMPT  TO  DO  SAM  SUPPRESSION. 

1.000 

.  5000 

VARIABLE 

- P  P  F  S  V  S  ( 

2  $  0, 

0) 

(KRS)  FRACTION  OF  RED  TYPE-KRS  SAMS  THAT  ARE  VULNERABLE  TO  BLUE 

SAM  SUPPRESSORS  ON  POWER  PROJECTION  MISSIONS. 

.  5000 

1.000 

VAR  I  ABLE 

- PP  PDAS  ( 

2  9  o. 

0) 

(KBA)  PROBABILITY  THAT  A  BLUE  TYPE-KBA  SAM  SUPPRESSOR  DETECTS  ANY 
PARTICULAR  RED  SAM  ON  POWER  PROJECTION  MISSIONS. 

.  1000E-01 


1.000 


o 

I 

r\j 

IV) 


VARIABLE  -  PrPOSA(  2,  0,  0) 

(KRS)  PROBABILITY  THAT  A  RED  SAM  DETECTS  ANY  PARTICULAR  BLUE  AIRCRAFT 
OH  POWER  PROJECTION  MISSIONS. 

.1000  1.000 


VARIABLE  - - P  P  P  K  A  S (  2,  0,  0) 

(KRS)  PROBABILITY  THAT  A  RED  SAM  OF  TYPE  KRS  THAT  HAS  BEEN  SUPPRESSED 
BY  ONE  OR  MORE  BLUE  SAM  SUPPRESSORS  IS  KILLEO  BY  THOSE  SUPPRESSORS 
ON  POWER  PROJECTION  MISSIONS. 

.8000  1.000 


VARIABLE - P  P  P  K  S  A (  2#  2,  0) 

(  K  R  S  ,  K  B  A  )  PROBABILITY  THAT  A  RED  SAM  OF  TYPE  KRS  KILLS  A  BLUE  AIRCRAFT 
OF  TYPE  KBA  ON  POWER  PROJECTION  MISSIONS  GIVEN  THAT  THE  SAM  IS 
SHOOTING  AT  THAT  AIRCRAFT. 

.4000  .6000 

.6000  . 4000 


VARIABLE  -  PPPSAS (  2,  2,  0) 

(KBA, KRS)  PROBABILITY  THAT  A  BLUE  SAM  SUPPRESSOR  OF  TYPE  KBA 
SUPPRESSES  A  RED  TYPE-KRS  SAM  ON  POWER  PROJECTION  MISSIONS  GIVEN  THAT 
THE  AIRCRAFT  IS  SHOOTING  AT  THAT  SAM. 

.4000  .5000 

.2000  .5000 


VARIABLE - P  P  R  S  A  M (  2,  0,  0) 

(KRS)  NUMBER  OF  RED  SAMS  OF  TYPE  KRS  THAT  ARE  PROVIDING  DEFENSE 
AGAINST  BLUE  POWER  PROJECTION  MISSIONS. 

20.00  10.00 


VARIABLE - P  P  S  UR  R ( 


0. 

0. 


0. 

0. 


VARIABLE - P  P  T  S  C  S (  2, 


5,  0) 


(KBA,L)  SORTE  RATE  FOR  BLUE  AIRCRAFT  OF  TYPE  KBA  ON  POWER  PROJECTION 
MISSIONS  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L  — 

KBA  *  1  FOR  ATTACK  AIRCRAFT, 

KBA  =  2  FOR  FIGHTR  AIRCRAFT. 

•5000  1.000  2.000 

.5000  1.000  2.000 


0  ) 


2. COO 


4.000 


(KRS)  TOTAL  NUMBER  OF  SHOTS  PER  TIME  PERIOD  THAT  A  TYPE-KRS  RED  SAM 
CAN  MAKE  WHEN  DEFENDING  AGAINST  BLUE  POWER  PROJECTION  MISSIONS. 


o 

I 

dj 

UJ 


VARIABLE 


K  *  1 


K  *  2 


K  *  3 


- PR  S  M  (  10.  5,  6) 

(  KR  S  >  L  DC  >  L  0C  T  F  1  )  PROPORTION  OF  RED  SHIPS  OF  KINO  KRS  IN  LOCATION  LOC 
MOVING  TOWARD  TASK  FORCE  WHEN  TASK  FORCE  IS  IN  LOCATION  L0CTF1-1. 

RED  SHIPS  IN  SAME  LOCATION  AS  TASK  FORCE  DO  NOT  MOVE. 

(DATA  FOR  PRSM(KRS»LOCTFl“lj L0CTF1 )  ARE  IGNOREO.) 


.  5C00 

.  9500 

.7600 

• 2900E-01 

•  4  5  OOE-0 1 

0. 

.  2700 

.  3000 

*  6  800E-0 1 

. 3800E-01 

.1300 

.  8300 

.  5800 

•  900  0E-02 

. 2700E-01 

.6200 

. 8000E-01 

.9900 

•  9700E-0  1 

•  69  OOE-0 1 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

.  5800 

.9000 

• 8800E-01 

. 4900E-01 

0. 

.  6700 

.9300 

.5900E-01 

. 2000E-01 

0. 

,  4600 

.6200 

.4400E-01 

•  4  500E-01 

0. 

.  7600 

.  5900 

. 4400E-01 

. 4900E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

0. 

0. 

.  3700 

0. 

.  3100 

•  6600E-01 

.6500E-01 

.  5100 

0. 

.  3800 

. 1100E-01 

. 8500E-01 

.7100 

0. 

.6400 

• 1000E-02 

. 7000E-02 

.  9500 

0. 

.  3800 

. 6000E-01 

. 8900E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0  . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

.  6200 

.  0000 

0. 

• 5100E-0 1 

•  63  OOE-O 1 

.  74  00 

.  7000 

0. 

.7400E-01 

. 5600E-01 

.  3000 

.  4600 

0, 

• 8000E-0 1 

.4000E-02 

.  8900 

.  8500 

0. 

•  68  OOE-0 1 

. 5  OOOE-0 1 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

o'. 

0. 

0. 

0. 

0. 

K  «  6 


O 


ro 

-fr 


VARIABLE  — 


VARIABLE  ~ 


.  7300 

.  3600 

.6400 

0. 

• 8800E-0 1 

.  3800 

.  7600 

.  8800 

0. 

. 7000E-02 

.7600 

.  9100 

.7600 

0. 

. 52006-01 

.9500 

.  9500 

.9100 

0. 

•  32  00E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

Ok 

0. 

0. 

0. 

0. 

.  7000 

. 4000E 

-01 

.1800 

• 6000E-Q2 

0. 

.  7300 

.  5200 

.  4900 

• 1000E-01 

0. 

. 300  0  E-0 1 

.  1800 

.9100 

• 6900E-01 

0. 

.  9400 

.  9500 

.  5900 

• 5200E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

- PR  WLNQ  ( 

5#  0# 

0) 

IL)  PROBABILITY  THAT  LAND 

I-BASED  RESOURCES  ARE 

FORCE  (IN  LOCATION  L)  OF 

AN  IMPENDING  RED  AIR 

1.000 

1.000 

0. 

.  5000 

0. 

-  RACCDWC 

10#  0# 

0) 

(KRS)  COUNTERDETECTION  WIDTH  OF  ASW  AIRCRAFT 

KRS  AGAINST 

BLUE  BARRIER 

SUBMARINES.  (NMI) 

0. 

0. 

50.00 

30.00 

0 .  0 . 

0. 


0, 


0. 


VARIABLE - R  AC  PC  K  (  10, 


VARIABLE  -- 


0. 


PARBAB ( 


10.00 

VARIABLE  -  RECDW  ( 

10.00 


0) 


0) 


15.00 


10#  0#  0) 


10.00 


(KRS)  CONDITIONAL  PROBABILITY  OF  COUNTERKILL  GIVEN  DETECTION. 

.8000  .7500  0.  0.  0.  0.  0. 

(K)  NUMBERS  OF  RED  AIRCRAFT  REQUIRED  ON  RED  AIRBASES  IN  ORDER  FOR  BLUE 
TO  ATTACK  THE  VULNERABLE  RED  AIRBASE.  ALL  CRITERIA  MUST  BE  SATISFIED — 

K-l  IS  NUMBER  OF  BOMBERS  REQUIRED  ON  ALL  RED  AIRBASES# 

K  *  2  IS  NUMBER  OF  BOMBERS  AND  FIGHTERS  REQUIRED  ON  ALL  RED  AIRBASES# 

K  =  3  IS  NUMBER  OF  BOMBERS  AND  FIGHTERS  REQUIRED  ON  VULNERABLE  RED  BASE. 

5.000 

(KRS)  COUNTERDETECTION  WIDTH  OF  RED  SHIP  OF  KIND  KR S  AGAINST  BLUE  BAR¬ 
RIER  SUBMARINES.  ( NMI ) 

13.00  15.00  0.  0.  0.  0.  0. 


0. 


0. 


VARIABLE - REUW  (  6,  0,  0) 

(KBS)  EFFECTIVE  DETECTION  WIDTH  OF  A  RED  BARRIER  SUBMARINE  AGAINST 
BLUE  PENETRATING  SHIPS  OF  KIND  KBS.  (NMI) 

SEE  B ACC  DW  FOR  DEFINITION  OF  KBS. 

20.00  20.00  15.00  15.00  15.00  10.00 


VARIABLE  -  PSIBAR (  5, 


0. 


0. 


0,  0) 

(IBAR)  NUMBER  OF  RED  SUBMARINES  IN  BARRIER  BETWEEN  REGIONS  IBAR-1 
AND  IBAR. 

5.000  0.  5.000 


O 

I 

ro 

ui 


VARIABLE 

- RS  ( 

10,  5, 

0) 

(KPS, LOC)  NUMBER  OF 

RED  SHIPS  OF  KIND 

KRS  IN  LOCATION  (REGION)  LOC. 

KR  S  =  1 

FOR  TORPEDO 

SUBMARINES 

K  R  S  -  2 

FOR  CRUISE 

MISSLE  SUBMARINES 

KRS-3, 

NKRS  FOR  SURFACE  SHIPS. 

0. 

.  5000 

1 . 000 

2.200 

3.000 

3.000 

0. 

.  7000 

1.200 

3.000 

0, 

0. 

0. 

15.00 

25.00 

2.000 

8.000 

11.00 

5.000 

20.00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE 

-  S3FBCF ( 

1,  0, 

0  ) 

IN  SUBROUTINE  SUBSUB,  FRACTION  OF  BLUE 

SSN(DS)  INVOLVED  IN  THE  COMBAT 

THAT  ARE 

CAPABABLE 

OF  SHOOTING  AT  RED 

SURFACE  SHIPS. 

NOTE  — 

S SN ( D 5  )  ARE 

BSSNDS  SUBMARINES. 

.  8600 

VARIABLE - S  B  F  BC  S (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  FRACTION  OF  BLUE  SSN(DS)  INVOLVED  IN  THE  COMBAT 
THAT  ARE  CAPABABLE  OF  SHOOTING  AT  RED  SUBMARINES. 

.  6700 


VARIABLE - S  BF  RF A (  5,  0,  0) 

(L)  IN  SUBROUTINE  SUBSUB,  FRACTION  OF  RED  SURFACE  SHIPS  IN  REGION  L 
INVOLVED  IN  THE  COMBAT  (WHEN  TASK  FORCE  IS  IN  REGION  L). 

.8500  .8600  .9700  .8800  .8900 


VARIABLE - S  B  F  R  F  C  (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  FRACTION  OF  RED  SURFACE  SHIPS  INVOLVED  IN  THE 
COMBAT  THAT  ARE  CAPABLE  OF  SHOOTING  AT  BLUE  SSN(DS). 

.  9900 


-26 


O 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


VARIABLE 


- S  B  F  R  $  A (  S,  0,  0) 

(DIN  SUBROUTINE  SUBSUB  ,  FRACTION  OF  RED  SUBMARINES  IN  REGION  L 
INVOLVED  IN  THE  COMBAT  (WHEN  TASK  FORCE  IS  IN  REGION  L). 

•9000  .9100  .9200  .9300  .9400 

- S  B  F  R  S  C (  1,  Op  0) 

IN  SUBROUTINE  SUBSUB,  FRACTION  OF  RED  SUBMARINES  INVOLVED  IN  THE 
COMBAT  THAT  ARE  CAPABLE  OF  SHOOTING  AT  BLUE  SSN(DS). 

.9100 


- S  B  P  BDF (  If  0,  0) 

IN  SUBROUTINE  SUB  SUB,  PROBABILITY  A  GIVEN  BLUE  SSN(DS)  DETECTS 
A  GIVEN  RED  SURFACE  SHIP. 

.6200 


- SBPBDS  (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  BLUE  SSN(DS)  DETECTS 
A  GIVEN  RED  SUBMARINE. 

.7200  p 

- S  B  P  BKF (  If  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  BLUE  SSN(DS)  KILLS  (GIVEN 
DETECTION)  A  GIVEN  RED  SURFACE  SHIP. 

.  3b00 

- SB  P  B  K  S  (  If  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  BLUE  SSN(DS)  KILLS  (GIVEN 
DETECTION)  A  GIVEN  RED  SUBMARINE. 

.  4600 


-  SBPFDBt  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  RED  SURFACE  SHIP  DETECTS 
A  GIVEN  BLUE  SUBMARINE. 

.7100 


- S  B  P  F  K  B  (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  RED  SURFACE  SHIP  KILLS 
(GIVEN  DETECTION)  A  GIVEN  BLUE  SUBMARINE. 

.  2300 


- S  B  P  SDB (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  RED  SUBMARINE  DETECTS 
A  GIVEN  BLUE  SUBMARINE. 

.8100 


- S  B  P  SK  B (  1,  0,  0) 

IN  SUBROUTINE  SUBSUB,  PROBABILITY  A  GIVEN  RED  SUBMARINE  KILLS 
(GIVEN  DETECTION)  A  GIVEN  BLUE  SUBMARINE. 

.  3300 
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O 


V  AK  1  AiiLt - .VH  t  (  1)  O, 

100.0 

VARIABLE: - S  M  A  L  L  R  (  1,  0, 

50.00 

VARIABLE - $S  B AC  R (  8  ,  0, 

50.00  10.00 

VARIABLE  -  SSCFA  (  1,  0, 

.  0000 

VARIABLE - S  S  D  A  A  W  (  1,  0, 

.9000 

VARIABLE  -  SSDASVM  1,  0, 

.  1C00 

VARIABLE - S  S  DUR  G (  It  0, 

0. 


U  ) 

INITIAL  NUMBER  OF  RED  AIRCRAFT  SHELTERS  ON  THE  VULNERABLE  RED  AIRBASE. 


0) 

THE  RANGE  DF  THE  AIR-TO-AIR  MISSILES  CARRIED  BY  THE  DL I •  (NMI) 


0) 

(KPSS)  NUMBER  OF  BLUE  AIRCRAFT  (ATTACK  AIRCRAFT  OR  EQUIVALENT)  FROM 
CARRIER  REQUIRED  TO  DESTROY  A  RED  SURFACE  SHIP  OF  KIND  KRSS. 
KRSS=KRS-2  VARIES  FROM  1  TO  NKRS-2,  INDEXES  KIND  OF  RED  SURFACE  SHIP, 
CORRESPONDING  TO  KRS*3  TO  NKRS.  (KRS*1  AND  2  ARE  RED  SUBMARINES.) 

0.  0.  0.  0.  0.  0. 

0) 

ONE  BLUE  FIGHTER  AIRCRAFT  IS  EQUIVALENT  TO  SSCFA  BLUE  ATTACK  AIRCRAFT, 
FOR  PURPOSES  OF  DESTROYING  RED  SURFACE  SHIPS.  (SUBROUTINE  SHPSHP) 


0) 

PROBABILITY  OF  KILL  OF  AN  ASM  BY  THE  SSD  SYSTEMS  ON  AN  A A W  SHIP. 


0) 

PROBABILITY  OF  KILL  OF  AN  ASM  BY  THE  SSD  SYSTEMS  ON  AN  ASW  SHIP. 


0) 

PROBABILITY  OF  KILL  OF  AN  ASM  BY  THE  SSD  SYSTEMS  ON  AN  URG  SHIP. 


VARIABLE - S  S  F  B AK (  2,  0,  0) 

( K B A , KR S S  )  FRACTION  OF  BLUE  AIRCRAFT  OF  TYPE  KBA  KILLED  ATTACKING  RED 
SURFACE  SHIPS  OF  TYPE  KRSS. 

KRSS=KRS-2  VARIES  FROM  1  TO  NKRS-2,  INDEXES  KIND  OF  RED  SURFACE  SHIP, 
CORRESPONDING  TO  KRS=3  TO  NKRS.  (KRS*1  AND  2  ARE  RED  SUBMARINES.) 

K  B A  *  1  FOR  BLUE  ATTACK  AIRCRAFT,  KB  A  *2  FOR  BLUE  FIGHTER  AIRCRAFT. 
.1000  . 5000E-0 1  0.  0.  0.  0.  0.  0. 

.2000  .1000  0.  0.  0.  0.  0.  0. 


VARIABLE - 3SFRSV(  8,  5,  0) 

(KRSSiL)  FRACTION  OF  RED  SURFACE  SHIPS  OF  KINO  KRSS  THAT  ARE  VULNER¬ 
ABLE  TO  ATTACK  BY  BLUE  TASK  FORCE  WHEN  THE  TASK  FORCE  IS  IN  REGION  L. 
K  P  $ S  =  KR S  — 2  VARIES  FROM  1  TO  NKRS-2,  INDEXES  KIND  OF  RED  SURFACE  SHIP, 
CORRESPONDING  TO  KRS=3  TO  NKRS.  (KRS=1  AND  2  ARE  RED  SUBMARINES.) 


1  .coo 

1 . 000 

.  7500 

.5000 

.  7500 

1 .000 

1.000 

.  9000 

.8000 

.7000 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

VARIABLE - S  S  P  BDR (  1,  0,  0) 

IN  SUBROUTINE  SHPSHP,  PROBABILITY  BLUE  DEFECTS  RED. 

IF  ISSBR-O,  SSPBDR  IS  THE  PROB.  THAT  A  GIVEN  BLUE  SURFACE  SHIP  DETECTS 
A  GIVEN  RED  SURFACE  SHIP.  IF  ISSBR-l#  SSPBDR  IS  THE  PROB.  THAT  THE 
BLUE  TASK  FORCE  (AS  A  UNIT)  DETECTS  A  GIVEN  RED  SURFACE  SHIP. 

.  8000 


o 

I 

r\j 

CD 


VAR  I  ABLE 

- 5  S  P  BK  R  (  1, 

0, 

0) 

IN  SUBROUTINE  SHPSHP,  PROBABILITY  A  GIVEN  BLUE  SURFACE  SHIP  KILLS  A 
GIVEN  RED  SURFACE  SHIP,  GIVEN  (DETECTION  AND)  ATTACK. 

NOTE— THE  PROB.  OF  ATTACK  IS  GOVERNED  BY  VARIABLES  ISSBR  AND  ISSRB. 

.  3000 

VARIABLE 

-  SSPRDBt  1, 

0, 

0  ) 

IN  SUBROUTINE  SHPSHP#  PROBABILITY  RED  DETECTS  BLUE. 

IF  ISSRB-O,  SS  PRD  B  IS  THE  PROB.  THAT  A  GIVEN  RED  SURFACE  SHIP  DETECTS 
A  GIVEN  BLUE  SURFACE  SHIP.  IE  ISSRB-1,  SSPRDB  IS  THE  PROB.  THAT  A 
GIVEN  RED  SURFACE  SHIP  DETECTS  THE  BLUE  TASK  FORCE. 

.  5000 

VARIABLE - S  S  P  RK  B (  1,  0,  0) 

IN  SUBROUTINE  SHPSHP,  PROBABILITY  A  GIVEN  RED  SURFACE  SHIP  KILLS  A 
GIVEN  BLUE  NON-CARRIER  SURFACE  SHIP,  GIVEN  (DETECTION  AND)  ATTACK. 
NOTE — THE  PROB.  OF  ATTACK  IS  GOVERNED  BY  VARIABLES  ISSBR  AND  ISSRB. 

.  6500 


VARIABLE - S  S  P  RKC (  1,  0,  0) 

IN  SUBROUTINE  SHPSHP,  PROBABILITY  A  GIVEN  RED  SURFACE  SHIP  KILLS  A 
GIVEN  BLUE  CARRIER,  GIVEN  (DETECTION  AND)  ATTACK. 

NOTE— THE  PROB.  OF  ATTACK  IS  GOVERNED  BY  VARIABLES  ISSBR  AND  ISSRB. 
NOTE — CARRIERS  ARE  NOT  ACTUALLY  KILLED.  THEIR  CAPABILITY  IS  DEGRADED. 


1200 


62- 


VARIABLE 


STARQ  (  5 


0, 


0) 


O 


VARIABLE  — 


VARIABLE  - 


VARIABLE 


VARIABLE 


(L)  THE  AEW 

STATION  R A  0 1  US  FROM  THE  CENTER 

OF  THE  TASK 

FORCE  IN 

LOCATION  L. 

( N  MI  ) 

300.0 

300.0 

300.0 

250.0  200.0 

-  STSALVt 

If  0, 

0) 

THE  NUMBER  OF  TORPEDO  SALVOS  FIRED  BY  EACH 

SURVIVING  TORPEDO 

SUBMARINE. 

2.000 

—  S  U  B  SOR ( 

1»  0, 

0) 

THE  DISTANCE 

FROM  TASK  FORCE  CENTER  TO  THE 

TORPEDO  RELEASE  LINE.  (NMD 

15.00 

—  T  A  BIOT ( 

2  0»  4, 

0  ) 

(I»K)  TAB10I I >  K )  IS  THE  NUMBER  OF  ASMS  THAT 

CAN  BE  ENGAGED  BY  I  A AW 

ESCORTS  GIVEN  THAT  THESE  ASMS  WERE  LAUNCEO 

FROM  TYPE-K 

RED  BOMBERS 

FOR  K ■ 1 f  NKR  B 

.  FOR  K-NKRBU,  TAB10  IS  THIS 

NUMBER 

GIVEN  THAT  THE 

ASMS  WERE  LAUNCHED  FROM  RED  SUBMARINES. 

8.000 

8.000 

8.000 

8.000 

16.00 

16.00 

16.00 

16.00 

2  A .  00 

24.00 

24.00 

24.00 

32.00 

32.00 

32.00 

32.00 

40.00 

40.00 

40.00 

40.00 

40.00 

46.00 

48.00 

48.00 

56.00 

56.00 

56.00 

56.00 

64.00 

64.00 

64.00 

64.00 

72.00 

72.00 

72,00 

72.00 

80.00 

90.00 

90.00 

80.00 

88.00 

88.00 

88.00 

88.00 

96.00 

96.00 

96.00 

96.00 

104.0 

104.0 

104.0 

104.0 

112.0 

112.0 

112.0 

112.0 

120.0 

120.0 

120.0 

120.0 

128.0 

128.0 

126.0 

128.0 

136.0 

1  36.0 

136.0 

136.  0 

144.0 

144  .0 

144.0 

144.0 

152.0 

152.0 

152.0 

152.0 

160.0 

160.0 

160.0 

160.0 

-  TAB12  < 

20,  0, 

0) 

(  I  )  A  VECTOR 

IN  WHICH  THE  ITH  COMPONENT  IS 

THE  CARRIER 

SURVIVAL 

PROBABILITY 

IF  IT  RECEIVES  I  TORPEDO  HITS, 

.  8000 

.  4000 

.2000 

.  1000  •  5000E-01  •  2  500E-01  0. 

0. 

0. 


0. 


0. 


0. 

0. 


0. 

0. 


0 


0 


0 


0 


0 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


—  T  A  B  1  3  T  ( 

20#  4# 

0) 

(  I  #  K  )  TAB13U 

#  K )  IS  THE  CARRIER  SURVIVAL  PROBABILITY  IF 

IT 

RECEIVES 

I 

HITS  BY  ASMS 

LAUNCED  FROM  TYPE-K  RED  BOMBERS 

FOR  K=1#NKRB • 

FOR  K*NKRB+1,  TAB13  IS  THIS  PROBABILITY 

GIVEN  THAT  THE 

ASMS  WERE  LAUNCHED  FROM  RED  SUBMARINES. 

•  6000 

.  6000 

1.000 

.6000 

.  3000 

.  3000 

.  0000 

.  3000 

.  1600 

.  1500 

.6000 

.1500 

. 7500E-01 

. 7500E 

-01 

.4000 

. 7500E-01 

. 3500F-01 

. 3500E 

-01 

.2000 

• 3500E-01 

•  1500E-01 

. 1500E 

-01 

.1000 

•  1500E-01 

.  1000E-01 

. 1000E 

-01 

. 5000E-01 

• 1000E-01 

.5000E-02 

. 5000E 

-02 

.2500E-01 

•  5000E-02 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

—  TCAP  ( 

1#  0# 

0) 

A  TIME  DELAY 

BETWEEN  WHEN  THE  BOMBER  RAID  IS  DETECTED  AND 

WHEN  THE 

CAP 

AIRCRAFT  BEGIN  TO  FLY  TOWARD  ENGAGEMENT.  (MIN) 

1.600 

■ —  THSCAOI 

5,  0# 

0) 

(L)  WIDTH  OF 

THREAT  SECTOR  FOR  ANTI-SHIP  MISSLE  ATTACKS 

IN 

LOCATION 

L  . 

(DEG) 

120.0 

43 

o 

o 

o 

360.0 

180.0  360.0 

•  —  THSCTOt 

5,  0# 

0) 

(L )  WIDTH  OF 

THREAT  SECTOR  FOR  T0RPE00  ATTACKS  IN  LOCATION 

L,  (DEG) 

90.00 

60.00 

360.0 

180.0  360.0 

—  TPAS  ( 

1#  0, 

0  ) 

NUMBER  OF  TORPEDOES  FIRED  BY  A  RED  BARRIER  SUBMARINE  IN 

AN 

ATTACK 

AGAINST  A  CARRIER. 

2  .  600 

—  TPS  ( 

1#  0, 

0) 

THE  NUMBER  OF 

TORPEDOES  PER  TORPEDO  SALVO. 

2.600 

IE- 


O 


VARIABLE  -  fl  (  It  Ot  0) 


VARIABLE 


8.000 

—  -  T  2  ( 


3.000 

VARIABLE - T  3  ( 

0. 

VARIABLE - T4  ( 

1 .000 

VARIABLE - UBAEVIK 


VARIABLE  — 


.1400 
—  UBAEW  ( 


.  1400 

VARIABLE  -  UBASWLt 


VARIABLE 


.1000 

-  UBASW  ( 


.2^00 

VARIABLE - VBT  ( 

20.00 

VARIABLE - VC  A  P  < 

12.00 

VARIABLE - VI  ( 

12.00 


It  0,  0) 

It  Ot  0) 

1#  0,  0) 

If  0,  0) 

It  Ot  0) 

1#  Ot  0) 

If  0,  0) 

3  r  Of  0) 

10.00 

If  Of  0) 

If  Of  0) 


THE  TIME  BETWEEN  DETECTION  OF  THE  BOMBER  RAID  AND  LAUNCH  OF  THE  FIRST 
WAVE  OF  DUS.  (MIN) 


A  TIME  PENALTY  FOR  DISTANCE  MADE  GOOD  DURING  DU  TAKE-OFF  AND  CLIMB. 
(MIN) 


ANY  MISCELLANEOUS  TIME  DELAY  TO  BE  ASSIGNED  TO  THE  DLI  MISSION.  (MIN) 


THE  TIME  BETWEEN  DLI  WAVES.  (MIN) 


THE  RECIPROCAL  OF  THE  NUMBER  OF  LAND-BASED  A E W  AIRCRAFT  NEEDED  TO 
SUPPORT  ONE  AEW  STATION. 


THE  RECIPROCAL  OF  THE  NUMBER  OF  SEA-BASED  AEW  AIRCRAFT  NEEDED  TO 
SUPPORT  ONE  AEW  STATION. 


THE  RECIPROCAL  OF  THE  NUMBER  OF  LAND-BASED  ASW  AIRCRAFT  REQUIRED  TO 
SUPPORT  A  STATION  ON  THE  OUTER  ASW  SCREEN. 


THE  RECIPROCAL  OF  THE  NUMBER  OF  SEA-BASED  ASW  AIRCRAFT  REQUIRED  TO 
SUPPORT  A  STATION  ON  THE  OUTER  ASW  SCREEN. 


(K)  THE  VELOCITY  OF  RED  BOMBERS  OF  TYPE  K.  (NMI/MIN) 

10.00 


THE  VELOCITY  OF  CAP  AIRCRAFT  WHEN  ENGAGING  THE  BOMBER  RAID.  (NMI/MIN) 


THE  AVERAGE  VELOCITY  OF  DLIS  FROM  LAUNCH  TO  ENGAGEMENT.  (NMI/MIN) 
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VARIABLE - V:  F  M  A  A  W  (  l,  Ot  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  MISSLES  THAT 
ARE  TARGETED  AGAINST  A  A  W  SHIPS. 

.2500E-01 

VARIABLE  -  WFMASWt  it  0*  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  MISSLES  THAT 
ARE  TARGETED  AGAINST  ASW  SHIPS. 

2500E-01 

VARIABLE  -  WFMPLT(  1,  0#  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  MISSLES  THAT 
ARE  TARGETED  AGAINST  AIRCRAFT  CARRIERS. 

.2500 


VARIABLE  -  WFMURG (  1,  0,  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  MISSLES  THAT 
ARE  TARGETED  AGAINST  URG  SHIPS. 

•  2  500E-0 1 

VARIABLE - W  F  P  P  A  S  (  2*  5 1  0) 


O 

0.  0. 

0.  0. 

VARIABLE - WF  T  A  A  W (  l,  0*  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  TORPEDOS  THAT 
ARE  TARGETED  AGAINST  A A  W  SHIPS. 

1 . 000 

VARIABLE - w  F  T  A  S  W {  It  0*  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  TORPEDOS  THAT 
ARE  TARGETED  AGAINST  ASW  SHIPS. 

I. 000 


(KBA,L>  WEIGHTING  FACTOR  APPLIED  TO  SUCCESSFUL  POWER  PROJECTION 
SORTIES  FLOWN  BY  TYPE-KBA  BLUE  AIRCRAFT  FROM  LOCATION  L  TO  DETERMINE 
CUMULATIVE  WEIGHTED  POWER  PROJECTION  SORTIES  FOR  SUMMARY  DISPLAY* 

K  9  A  =  1  FOR  ATTACK  AIRCRAFT*  K B A=  2  FOR  FIGHTER  AIRCRAFT. 

.5000  1.000  1.000 

.3000  .6000  .6000 


VARIABLE  -  WFTFL  (  5*  0*  0) 

(L)  WEIGHTING  FACTOR  APPLIED  TO  CARRIER  EFFECTIVENESS  (XEFFCM)  WHEN 
1  HE  TASK  FORCE  IS  IN  LOCATION  L  TO  DETERMINE  THE  CUMULATIVE  WEIGHTED 
NUMBER  OF  EFFECTIVE  TIME  PERIODS  THAT  THE  CARRIERS  SPENT  ON  STATION. 
IF  THERE  A  R  F  NO  CARRIERS  (XPLAT»0),  THEN  THIS  FACTOR  IS  APPLIED  TO 
THE  TOTAL  NUMBER  OF  BLUE  SHIPS  REMAINING  IN  THE  TASK  FORCE. 

0.  0.  1.000  1.000  1.000 

VARIABLE  -  WFTPLT (  1*  0*  0) 

WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  TORPEDOS  THAT 
ARE  TARGETED  AGAINST  AIRCRAFT  CARRIERS. 

1.000 
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O 


VAR  lABLt - Vif  TURG(  If  0,  0) 


WEIGHTING  FACTOR  USED  IN  DETERMINING  THE  PROPORTION  OF  TORPEDDS  THAT 
ARE  TARGETED  AGAINST  URG  SHIPS, 


l.COO 

VARIABLE - WR  L  NDO ( 

800.0 

VARIABLE  -  WTFCBOt 

50.00 

VARIABLE  -  WVSIZ  ( 

2,000 

VARIABLE  -  XAEWLCM 

30.00 

VARIABLE - X  A  E  W  ( 

20.00 

VARIABLE - X  A  S  WL  Q ( 

30.00 

VARIABLE - X  A  S  W  ( 

20.00 

VARIABLE  - r  XATTCKI 

72.00 

VARIABLE  -  XEAAW  ( 

8  .COO 


5,  0,  0) 

700  k  0 
If  0,  0) 

It  Of  0) 

5#  0,  0) 

30.00 
If  0,  0) 

5,  Of  0) 

30.00 

If  Of  0) 

If  Of  0) 

If  Of  0) 


(L)  RANGE  (OF  THE  AIR  ATTACK  FROM  TASK-FORCE  CENTER)  THAT  LAND-BASED 
RESOURCES  ARE  ABLE  TO  WARN  THE  TASK  FORCE  (IN  LOCATION  L)  OF  AN 
IMPENDING  RED  AIR  ATTACK  GIVEN  THAT  THESE  LAND  RESOURCES  ARE  ABLE  TO 
PROVIDE  THIS  WARNING.  (NMI) 

500.0  300.0  200.0 

WIDTH  TASK  FORCE  USES  IN  CROSSING  BARRIERf  IF  BARRIER  CROSSING  PROTO¬ 
COL  3  IS  USED.  (NMI) 


THE  NUMBER  OF  FIGHTERS  SIMULTANEOUSLY  LAUNCHED  IN  EACH  DL I  WAVE. 


(L)  THE  NUMBER  OF  LAND-BASED  A E W  AIRCRAFT  ASSIGNED  TO  THE  TASK  FORCE 
WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

30.00  15.00  0. 


THE  NUMBER  OF  SEA-BASED  A E W  AIRCRAFT  ASSIGNED  TO  THE  TASK  FORCE. 


(L)  THE  NUMBER  OF  LAND-BASED  ASW  AIRCRAFT  ASSIGNED  TO  THE  TASK  FORCE 
WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

30.00  15.00  0. 


THE  NUMBER  OF  SEA-BASED  ASW  AIRCRAFT  ASSIGNED  TO  THE  TASK  FORCE. 


NUMBER  OF  ATTACK  AIRCRAFT  BASED  ON  ALL  OF  THE  AIRCRAFT  CARRIERS  IN 
THE  TASK  FORCE. 


THE  NUMBER  OF  A A  W  ESCORTS. 


VARIABLE  - 


VARIABLE 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


VARIABLE  - 


- XE  A  S  W  A  ( 

6.000 

-  XEASWNt 

2.000 

-  XFGHTR ( 

A  8 . 00 

- XI  A  ( 

10.00 

- X  I  E  ( 

100.0 

-  XNRAB  ( 

10.00 

-  XPLAT  ( 

2.000 

-  XURGS  { 

A. 000 

-  ZL AMPF ( 

2.000 

-  ZMPATTl 

2.000 

- Z  M  PC  AP  ( 


If  0,  0) 

THE  NUMBER  QF  AIR-CAPABLE  ASW  ESCORTS. 


If  Of  0) 

THE  NUMBER  OF  NON- AI R-C AP ABLE  ASW  ESCORTS. 


If  Of  0) 

NUMBER  OF  FIGHTER  AIRCRAFT  BASED  ON  ALL  OF  THE  AIRCRAFT  CARRIERS  IN 
THE  TASK  FORCE. 


5,  0,  0) 

U)  MINIMUM  NUMBER  OF  BLUE  SORTIES  ON  ATTACK  MISSION  NEEDED  TO  PER¬ 
FORM  AIRBASE  ATTACK  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

100.0  10.00  10.00  0. 

5,  0,  0) 

(L)  MINIMUM  NUMBER  OF  BLUE  SORTIES  ON  ESCORT  MISSION  NEEDED  TO  PER¬ 
FORM  AIRBASE  ATTACK  WHEN  THE  TASK  FORCE  IS  IN  LOCATION  L. 

10.00  0.  0.  0. 

If  0,  0) 

NUMBER  OF  ACTUAL  AIRBASES  THAT  COMRISE  THE  NOTIONAL  VULNERABLE  RED 
AIRBASE . 


1#  0,  0) 

THE  NUMBER  OF  CARRIERS  IN  THE  TASK  FORCE. 


If  0,  0) 

NUMBER  OF  URG  SHIPS  IN  THE  TASK  FORCE. 


1>  Of  0) 

THE  AVERAGE  NUMBER  OF  REACTIVE  VTOL  ASW  AIRCRAFT  SORTIES  PER  AIR- 
CAPABLE  ASW  ESCORT  AVAILABLE  FOR  THE  PROSECUTION  OF  THE  TORPEDO 
SUBMARINE  THREAT. 


3  f  Of  0) 

IK)  THE  NUMBER  OF  ASMS  CARRIED  BY  RED  BOMBERS  OF  TYPE  K. 
3.000  1.000 

If  Of  0) 


3.000 


THE  NUMBER  OF  MISSILE  SALVOS  THAT  WILL  BE  FIRED  BY  ENGAGING  CAP 
AIRCRAFT. 


VARIABLE  -  ZMPDLI <  If 

3.000 

VARIABLE - ZMPESC  (  If 

2.000 

VARIABLE - Z  M  P  S  T  G  {  If 


0,  0) 

THE  NUMBER  OF  MISSILE  SALVOS  THAT  WILL  BE  FIRED  BY  ENGAGING  DLI. 


0>  0) 

NUMBER  OF  MISSLE  SALVOS  THAT  WILL  BE  FIRED  BY  ENGAGING  RED  ESCORT  AIR¬ 
CRAFT. 


Of  0) 


5.000 


THE  NUMBER  OF  MISSILES  FIRED  BY  EACH  SURVIVING  MISSILE  SUBMARINE 


APPENDIX  D 

SAMPLE  OUTPUT  OF  MEDMOD  RESULTS 


SAMPLE  OUTPUT  OF  MEDMOD  RESULTS 


MEDMOD  currently  provides  three  types  of  outputs,  and 
all  three  are  produced  in  each  run  of  MEDMOD.  First,  MEDMOD, 
through  Overlay  INP,  provides  an  output  listing  of  the  inputs. 
(A  sample  of  this  output  is  given  in  Appendix  C.)  Next, 
MEDMOD  provides  some  detailed  outputs  which  essentially  con¬ 
sist  of  the  results  of  each  major  subroutine  (and  of  some 
of  the  subroutines  called  by  these  major  subroutines)  each 
time  these  subroutines  are  called.  Finally,  MEDMOD  provides 
a  short  summary  results  table. 

The  following  is  a  sample  of  the  detailed  output  and 
the  summary  results  table  produced  by  MEDMOD  given  the  data 
listed  in  Appendix  C.  The  detailed  output  appears  first, 
and  the  summary  results  table  is  on  the  last  page  of  this 
appendix.  (For  brevity,  the  detailed  output  of  time  periods 
three  through  eight  has  been  deleted  here.) 


D-l 


OUTPUTS  FRTM  THIS  PUN  OF  MFQMOD  ARE  AS  FOLLOWS 


START  PROGRAM  MEDMOD 


START  SU9E  OUT  I NF  DDAY 

RESULTS  OF  THE  DO  AY  SHOOT  OU  T  — T  A  SK  FORCE  IS  IN  REGION  1 


KIND  OF  RED  SHIP 

1 

2 

3 

4 

INITIAL  RED  SHIPS  IN  REGION 

0.000 

3.000 

0.000 

2.000 

SHIPS  KILLED  BEFORE  ATTACK  ON  TASK  FORCE 

0.000 

1.000 

0.000 

1 . 000 

ships  attacking  carriers 

0.000 

.600 

0.000 

.400 

SHIPS  ATTACKING  OTHER  BLUE  SHIPS 

0.000 

.400 

0.  000 

.  600 

SHIPS  KILLED  AFTER  ATTACK  QN  TASK  FORCE 

0.000 

1.000 

0.000 

1 . 000 

RFSULTANT  RED  SHIPS  IN  REGION 

0.000 

1.000 

0.000 

0.000 

KIND  OF  BLUE  SHIP 

XPLAT 

X  E  A  AW 

XEASWA 

XEASWN 

XURGS 

INITIAL  BLUE  SHIPS  IN  REGION 

2.000 

8.000 

6.000 

2.000 

4.000 

BLUE  SHIPS  KILLED 

0.000 

.058 

.044 

.015 

.029 

PESULTANT  BLUE  SHIPS  IN  REGION 

2.000 

7.942 

5.956 

1.985 

3.971 

RESULTANT  RELATIVE  CARRIER  CAPABILITY  (XEFFCM)  EQUALS  .9560. 
E  N AC  0  *  .  1250  PIACO-  .0010  F  AC  D  *  .0017 

FDMCV*  .0100  XFGHTR*  47.9200 

ADNCV*  .  1200  X  A  TTCK  *  71.8800 

END  OF  SUBROUTINE  DO A Y 


a 

I 

ru 


START  OF  PERIOD  1 
LOCTF*  1 


START  SUBROUTINE  GNAATK 

INSUFFICIENT  RED  BOMBERS.  NO  AIR  ATTACK  ON  TASK  FORCE. 

BMT«  0.0000  EST«  0.0000  NT  PS  L  A  *  1  ITP-  l 

THE  FOLLOWING  VALUES  ARE  FOR  I  *  1 

Escm=  O.OGOO 

BMR(  hi)*  0.0000 
BMR(I»2)>  0.0000 

B MR ( I »  3 ) a  0.0000 

AIRCRAFT  ON  GROUND  ON  AIRBASE  I  -  1  — 

AESCA3(I>=  100.0000 
ATAB  T  (I»ll*  <*0.0000 
ATABT(I#2>-  20.000C 
A  T  A  B  T ( I »  3 ) *  2  0. C 00  0 

THE  FULLOWING  VALUES  ARE  FOP  I  *  2 
E  SC ( I  )  *  0.0000 

BMR It  » 1 ) •  3.0000 

BMR I  I i 2 ) *  0.0000 

B  MR ( I i 3 ) =  C.0000 

AIRCRAFT  ON  GROUND  ON  AIRBASE  1-2  — 

A  E  SC  A B ( I  ) *  100. OCOO 

ATACTlIfl)"  40.0000 
ATAGT(I»2I*  20.0000 
ATABT(I,3)=  20.0000 
END  PF  SUB  P  OUT  J  NF  t  M  A  A  I K 


START  SUBROUTINE  PL  B  A  ft 

NO  RED  AIR  ATTACK  ON  TASK  FORCE  THIS  PERIOD 
END  OF  SUBROUTINE  PLBAB 


START  SUBROUTINE  SUBSUB 
TASK  FORCE  IS  IN  REGION  1 

RESULTS  OF  THE  BLUF  SUBMAR INE/RFD  SUBMARINE  INTERACTION 


INITIAL  BLUE  SUBMARINES  IN  TASK  FORCE - 

(ALL  BLUE  SUBS  ENGAGE  IN  COMBAT.) 

RED  SUBMARINES  CAPABLE  OF  ATTACKING  BLUE- 
BLUE  SUBMARINES  KILLED  BY  RED  SUBMARINES— 
RESULTANT  BLUE  SUBMARINES  IN  TASK  FORCE  — 


4.00 

.82 

.11 

3.89 


INITIAL  RED  SUBMARINES  IN  REGION -  1.00 

RED  SUBS  ENGAGING  IN  COMBAT -  .90 

BLUE  SUBMARINES  CAPABLE  OF  ATTACKING  RED —  3.46 

RED  SUBMARINES  KILLED  BY  BLUE  SUBMARINES—  .67 
RESULTANT  RED  SUBMARINES  IN  REGION -  .33 


NO  RED  S  UR  F  AC  F  SHIPS  IN  REGION  — BLUE  SUB/RED  SURFACE  SHIP  BATTLE  DOES  NOT  TAKE  PLACE. 

OVERALL  BLUE  RESULTS—  4.00  BLUE  SSN(DS)  INITIALLY  LESS  .11  KILLED  YIELDS  3.89  SURVIVING. 

(ATTRITION  IS  PROPORTIONAL.) 


OVERALL  RED  RESULTS, 

KINO  OF  RED  SHIP 
INITIAL  RED  SHIPS  IN  REGION 
RED  SHIPS  KILLED 
RESULTANT  RED  SHIPS  IN  REGION 
END  OF  SUBROUTINE  SUBSUB 


BY  KIND  OF  RED  SHIP. 

12  3  4 
0.00  1.00  0.00  0.00 
0.00  .67  0.00  0.00 
0.00  .33  0.00  0.00 


START  SUBROUTINE  CTFMDD 
ATT*  0.0000 


a 

i 

oo 


UBAEWL 

.1400 

ua  AEW 
.1400 

AEWO 

220.00 

STAR 

300.00 

C  APML 

t) .  00 

C  ARM 

1 . 00 

BUCAP 

6.00 

DL  IA 

.67 

T  1 

8.00 

T  2 

3.00 

T  3 

0.00 

T  4 

1.00 

VC  AP 

12.00 

C  A  PM  R 

50 . 00 

TCAP 

1.50 

CAPSTAR 

400.00 

84RL 

500.00 

UBASWL 
.  1000 

BAREAL 

1900.0000 

UBASV, 

.2500 

BAREA 

1900.0000 

AS  WE 

.0500 

PKASW 

.5000 

ST 

0.0000 

PDIN 

.2000 

PKIIN 

.  15 

ESR 

8 . 00 

E  SLR 

8.00 

SUBSOR 

15.00 

WVSIZ 

2.00 


PKIN 

.5000 


Z  L  AMP  F 

2.0000 


TPS 


2.5-0 


Z  M PC  A  P 

3.00 


ZM POL  I 
3  .  CO 


STG 


ZMPSTf 

5.  on 


STSALV 

2.00 


XAS  W 

20.00 


XAFW 

20.00 


XASWL 

30.00 


XAEWL 

30,00 


XEASWA 


.96 


XE ASWN 

1.99 


XEAAW 

7.94 


XPL  AT 

2.00 


xo 

29.56 

XPDASW 

.77 

XSURS1 

0.00 

XSTG1 

.02 

XSURS2 

0.00 

XTOTE 

31.77 

XSURS3 

O.CO 

RS(1,L»- 

0.0000  R  S ( 2 

XSALV5 

0.00 

XPST 

1  .00 

XAEWSTA 

7.00 

XCAPSTA 

2.80 

X  2 

516.03 

XZ 

000.00 

.3179  FOR  L  -  1 


START  OF  ITERATION  I-  1  THROUGH  ATTRITION  PORTION  OF  CTFMOD 
ATT-  0.0000 


DISPLAY  RESULTS  OF  ASM-VS-SH1P  BATTLE 
XATS1  .10 

FMRBTU)*  0.0000  FMR  8T  (  2  )  -  0.0000  F  MR  B  T  (  3  )  -  0.0000  FMR  9  T  ( 

FMPBT (NKRB+ 1 )  ■  1.0000 


PKSS 

.75 

FPPL1 

7.00 

P  K  PL  1 

.75 

PKPL2 

.33 

PKPLD 

.50 

FPPL2 

1.00 

TAB10 

0  .  cooo 

72.0000 

136.0000 

16.0000 

80.0000 

144.0000 

24.0000 
80. 0000 

1 52.0000 

32.0000 

96.0000 

160.0000 

40.0000 

104.0000 

48.0000 

112.0000 

56.0000 

120.0000 

64.0000 

128.0000 

TAB13 
.  6000 
0.0000 
0.0000 

.  3000 
0.0000 
0.0000 

.  1500 
0.0000 
0.0000 

.0750 

0.0000 

0.0000 

.0350 

0.0000 

.0150 

0.0000 

.  0100 
0.0000 

.0050 

0.0000 

XATS2  .03 
XMPPLAT  .01 
XATS3  .00 
XATS4  .00 


ENACD- 

0.0000 

P IACD* 

0.0000 

FACD- 

C  .0000 

FDMC V- 

0.0000 

XFGHTR* 

47.9200 

ADMC  V  * 

O.OCOO 

X ATTCK* 

7i.aeoo 

XPSA 

1  .00 

XE  FFCM 

.96 

PMAAW 

.0001 

PMASW 

.0006 

PMURG 

.0006 

PTAAW 

0.0000 

PTASW 

SL'RA  AW 

.  9999 

SURASW 

.9994 

SURURG 

.9994 

XEAAW 

7.9411 

XEASWA 

5.9526 

XE  ASWN 

1.9043 

XURGS 

3. 9683 

0.0000  PTURG 


START  r)F  ITER  AT  ICN  1=  2  THROUGH  ATTRITION  PORTION  OF  C  TF  MOD 
ATT*  0.0000 


DISPLAY  RESULTS  OF  AIR-TO-AIR  BATTLE 
AE  SC  *  0.0000  X  FGHT  R=  47.9200 

AT(l ) =  0.0000 


0.0000 


A  I  (  2  )  * 

AT  (3  )  - 
FTSORU 
AT  ABT  1 1 »  KR  B I  * 
ATABT ( 1 »  KR  6  )  - 
ATABT ( 1# KRB  )  ■ 
AESCABd  )  » 


0 • OOOO 

0.0000 

0.0000  ATS  OR  U*  0.0000 
AO. 0000  AT  ABT  C  2f  KRB  )  * 
20.0000  ATABT!  2, KRB)  « 
20.0000  ATABT(2fKRB>- 
100.0000  AESCAB(2I- 
(XEFFCM) 


RELATIVE  CARRIER  CAPABILITY 
END  OF  SUBROUTINE  CTFMOD 


AO. 0000  FOR  KRB 
20.0000  FOR  KRB 
20.0000  FOR  KRB 
100.0000 
IS  NOW  .9557. 


1 

2 

3 


REMINDER— THIS  IS  PERIOD  1,  TASK  FORCE  IS  IN  REGION  1. 


START  SUBROUTINE  SHPSHP 

NO  VULNERABLE  RED  SURFACE  SHIPS  IN  RE  G I  ON  f  HENCE  NO  COMBAT  TAKES  PLACE. 

KINO  OF  BLUE  SHIP  XPLAT  XEAAW  XEASWA  XEASWN  XURGS 

BLUE  SHIPS  IN  1  A SK  FORCE  2.00  7.9A  5.95  1.98  3.97 

RELATIVE  CARFIER  CAPABILITY  (XEFFCM  )  EOUALS  .9557. 

END  OF  SUBROUTINE  SHPSHP 


START  SUBROUTINE  POWERP 
TASK  FORCE  IS  IN  REGION  1, 

POWFR  PROJECTION  SORTIE  RATES  FOR  THIS  REGION  ARE  ZERO.  NO  POWER  PROJECTION  PERFORMED. 
END  OF  SUBROUTINE  POWERP 


STAPT  SUBROUTINE  ADDMOE 

XPLAT*  2.0000  XEFFCM-  .9557  XSHIP-  21.6A65  ISTOP-  0  ITP-  1 

END  OF  SUBROUTINE  ADDMOE 


START  SUBROUTINE  MOV  TF 

TASK  FORCE  DOES  NOT  MOVE  DURING  PERIOD  1,  IT  REMAINS  IN  REGION  1. 
END  OF  SUBROUTINE  MOVTF 


.29 

.03 


0.00 

0.00 


0.00  6.08 
0.00  2.11 

5.53  COUNTERKILLED  YIELDS 


START  SUBROUTINE  MOVR  5 

ATTRITION  TO  RED  SHIPS  TRANSITING  BLUE-CONTROLLED  BARRIERS  DURING  PERIOD 
BARRIER  BETWEEN  REGIONS  1  AND  2 
RED  SHIPS  ATTEMPTING  TRANSIT 
RED  SHIPS  KILLED 

BLUE  3ARRIER  SUBMARINES —  10.00  INITIALLY  LESS 

BARRIER  BETWEEN  REGIONS  2  AND  3 
RED  SHIPS  ATTEMPTING  TRANSIT 
RED  SHIPS  KILLED 
BLUE  BARRIER  SUBMARINES  — 

FLOW  TF  RED  SHIPS  DURING  PERIOD 
REGION  1 


If  BY  KIND  OF  RED  SHIP 


4.47  SURVIVING 


.90  .65 

.07  .05 

10.00  INITIALLY  LFSS 
1,  BY  KIND  OF  RED  SHIP 


00 

00 


6.49 

1  .66 


8.46  COUNT FRKILLED  YIELDS  1.54  SURVIVING 


INITIAL  RED  SHIPS  IN  REGION 

0.00 

.  32 

0.00 

0.00 

RED  SHIPS 

ENTERING  REGION 

.26 

0.00 

0.00 

3.97 

RED  SHIPS 

LEAVING  REGION 

0.00 

0.00 

0.00 

0.00 

RESULTANT 

RED  SHIPS  IN  REGION 

.26 

.  32 

o.co 

3.97 

REGION  2 

INITIAL  RED  SHIPS  IN  REGION 

.50 

0.00 

0.00 

8.00 

RED  SHIPS 

ENTERING  REGION 

.03 

.60 

0.00 

4.83 

REO  SHIPS 

LEAVING  REGION 

.29 

0.  00 

0.00 

6.00 

RESULTANT 

RED  SHIPS  IN  REGION 

1.04 

.  60 

0.00 

6.75 

REGION  3 

INITIAL  p  F  C  SHIPS  IN  REGION 

1.00 

.  70 

J.00 

11.00 

RED  SHIPS 

ENTERING  REGION 

.  19 

.07 

.66 

.22 

RED  SHIPS 

LEAVING  REGION 

.90 

.  65 

0.00 

6.49 

RFSULTANT 

RED  SHIPS  IN  REGION 

.  29 

.  12 

.66 

4.73 

REGION  4 

INITIAL  RED  SHIPS  IN  REGION 

2.20 

1.20 

15.00 

5.00 

REO  SHIPS 

ENTERING  REGION 

.15 

.06 

1.13 

.90 

RED  SHIPS 

LEAVING  REGION 

.19 

.07 

.  66 

.22 

RESUL  T  ANT 

RED  SHIPS  IN  REGION 

2.15 

1.19 

15.47 

5.76 

REGION  5 

INITIAL  RED  SHIPS  IN  REGION 

3.00 

3.00 

2  5.00 

20.00 

RED  SHIPS 

ENTERING  REGION 

0.00 

0.00 

0.00 

0.00 

RED  SHIPS 

LEAVING  REGION 

.15 

.  06 

1.13 

.98 

RESULTANT 

RED  SHIPS  IN  REGION 

2.85 

2.94 

23.86 

19.02 

END  OF  SUBROUTINE  MOVPS 


START  SUBROUTINE  ABATCK 

TASK  FORCE  IS  NOW  IN  REGION  1 

INSUFFICIENT  8LUE  ESCORT  AIRCRAFT — NO  AIRBASE  ATTACK. 
END  OF  SUBROUTINE  ABATCK 


END  OF  PERIOD  1 


START  OF  PERIOD  2 
LOCTF-  1 


START  SUBROUTINE  GNAATK 

NO  RED  AIR'ATTACK  ON  TASK  FORCE  SCHEDULED  THIS  PERIOD. 

BUT*  0.0000  EST-  0.0000  NTPSLA*  2  I T  P «  2 


THE  FOLLOWING  VALUES  ARE  FOR  I 


ESC  II  )  * 
BMR <1*11* 
BMR ( I »  2 1  * 
BMR (1*3)- 


0.0000 
0. 0000 
0.0000 
0.0000 


AIRCRAFT  ON  GROUND  ON  AIRBASE 


AE  $C  A3 (  I  )  3 
ATAR  T  (1*1)* 
ATABT  (  1*2  )  - 
A  T  AB  T (  1*3)- 


100 . 0000 
40. ocoo 
20 . 0000 
20.0000 


1  — 


THE  FOLLOWING  VALUES  ARE  FOR  I  ■  2 
E S C  (  I )  *  0.0000 

BMR ( I • 1 ) ■  0.0000 

BMP (I »  2  )  *  O.OOCO 
BMR ( I  *  3 ) *  0.0000 

AIRCRAFT  ON  GROUND  ON  AIRBASE  I  *  2 

ALSCAam*  ioo.oooo 

ATABT (1*1)-  40.0000 

ATABT(I*2)»  20.0000 
ATABT (1*3)*  20.0000 

END  OF  SUBROUTINE  GNAATK 


START  SUBROUTINE  PL  8  AB 

NO  PED  AIR  ATTACK  ON  TASK  FORCE  THIS  PERIOD 
F.ND  OF  SUBROUTINE  PL  B  At? 


START  SUBROUTINE  SUBSUB 
TASK  FORCE  IS  IN  REGION  1 

RESULTS  OF  THE  BLUE  'SUBMAR  INE  /  RED  SUBMARINE  INTERACTION 

INITIAL  BLUE  SUBMARINES  IN  TASK  FORCE -  3.89 

(ALL  BLUE  SUBS  ENGAGE  IN  COMBAT.) 

RED  SUBMARINES  CAPABLE  OF  ATTACKING  BLUE —  .47 

BLUE  SUBMARINES  KILLED  BY  RED  SUBMARINES—  .06 

RESULTANT  BLUE  SUBMARINES  IN  TASK  FORCE -  3.81 

RESULTS  OF  THE  BLUE  SUB MA R I NE / RE D  SURFACE  SHIP  INTERACTION 

BLUE  SUBS  ATTACKING  RED  SURFACE  SHIPS -  3.81 

(ALL  BLUE  SIBS  THAT  SURVIVED  RED  SUBS) 

RED  SURF. SHIPS  CAPABLE  OF  ATTACKING  BLUE--  2.06 

BLUE  SUBS  KILLED  BY  RED  SURFACE  SHIPS -  .46 

RESULTANT  BLUE  SUBMARINES  IN  TASK  FORCE -  3.36 

OVERALL  BLUE  RESULTS —  3.89  BLUE  SSN(DS)  INITIALLY  LESS 

OVERALL  RED  RESULTS,  BY  KIND  OF  RED  SHIP.  (ATTRITION  IS  PROPORTIONAL.) 
KINO  OF  RED  SHIP  1234 

INITIAL  RED  SHIPS  IN  REGION  .26  .32  0.00  3.97 

RED  SHIPS  KILLED  .14  .17  0.00  1.06 

RESULTANT  RED  SHIPS  IN  REGION  .12  .15  0.00  2.92 

END  OF  SUBROUTINE  SUBSUB 


INITIAL  RED  SUBMARINES  IN  REGION - 

RED  SUBS  ENGAGING  IN  COMBAT - 

BLUE  SUBMARINES  CAPABLE  OF  ATTACKING  RED  — 
REO  SUBMARINES  KILLED  BY  BLUE  SUBMARINES — 
RESULTANT  RED  SUBMARINES  IN  REGION - 

INITIAL  RED  SURFACE  SHIPS  IN  REGION - 

RED  SURFACE  SHIPS  ENGAGING  IN  COMBAT - 

BLUE  SUBS  CAPABLE  OF  ATTACKING  RED  SURF. — 

RED  SURFACE  SHIPS  KILLED - 

RESULTANT  RED  SURFACE  SHIPS  IN  REGION - 

53  KILLED  YIELDS  3.36  SURVIVING. 


START  SUBROUTINE  CTFMOO 
ATT*  0.0000 


I 


UBAE WL 

UB  AE  W 

.  1400 

.  1400 

AE  WD 

STAR 

220.00 

300.00 

C  A  P  M  L 

C  APM 

BUCAP 

0.00 

1.00 

6.00 

T  1 

T  2 

T  3 

6.00 

3.00 

0.00 

VC  A  P 

C  A  P  MR 

TCAP 

12.00 

50.  GO 

1.50 

BARI 

500.00 

UBASWL 

B AREAL 

.1000 

1900.0000 

U  B  A  S  W 

BARF  A 

.2500 

1 900.0000 

A  SWF 

PK  ASW 

ST 

.  0500 

.5000 

.0122 

P  K  1  I N 

ESR 

F  SLR 

.15 

0 . 00 

8.00 

TPS 

2.50 

ZMPC  AP 

ZMPDL  1 

3.00 

3 . 00 

DLIA  WVSIZ 

.67  2.00 

T  4 

1.00 

CAPSTAR 

400.00 


PD  I N  PK1N  ZLAMPF 

.2000  .5000  2.0000 

SUB  SCR 
15.00 


.58 

.52 

3.39 

.31 

.27 

3.97 

3.38 

3.28 

1.06 

2.92 


7  m  p  c  t  r. 


0] 


5.  CO 


STSALV 

2.00 


XASW  X  A  E  W 

20.00  20.00 


XASWL  XAEWL 

30.00  30.00 


XEASWA  XEASWN 
5.05  1.98 


XEAAW 

7.94 


XPL  AT 

2.00 


xo 

29.56 

XPDASW 

.77 

XSURS1 

.01 

XSTG1 

.01 

XSURS? 

.01 

X  TOTE 

31.75 

X SLR  S3 

.01 

RS  <  1,L  >  - 

.1155  R  S  (  2 

XSALVS 

.01 

XPS  T 

1  .00 

XAE WS  TA 

7.00 

XC  APSTA 

2.80 

X  2 

516.03 

XZ 

800.00 

.1434  FOR  L  -  1 


START  OF  ITERATION  I-  1  THROUGH  ATTRITION  PORTION  OF  CTFMOD 
ATT-  0.0000 


o 

I 

oo 


DISPLAY  RESULTS  OF  ASM-VS-SHIP  BATTLE 
XATS1  .05 

FMPBMU*  0.0000  FMRBT  (  2  )  *  0.0000  FMRBT  (3)*  0.0000  FHRBT ( 

FHPBT ( NKR3+1 ) -  1.0000 


PKSS 

F  P PL  1 

PKPL  l 

.  75 

7. 

00 

.75 

TAB10 

8.0000 

16.0000  24. 

0000 

72.0000 

80.0000  08. 

0000 

136.0000 

144.0000  152, 

0000 

TAB13 

.6000 

.  3000 

1500 

0.0000 

0.0000  0. 

0000 

0 . 0000 

0.0000  0. 

0000 

XATS2 

.01 

XM  P  PL  AT 

.00 

XATS3 

.00 

X  ATS4 

.00 

ENACD* 

0.0000 

PIACD* 

0 

FDMC  V- 

o.ooco 

XFGHTR - 

4  7 

ADMC  V- 

0.0000 

XATTCK- 

71 

XPS  A 

1  .00 

XE  FFCM 

.96 

P  M  A  A  VI 

.  0000 

PMASW 

SL'R  A  AW 

.  99  b  7 

SUP  A  SW 

XE  A  AW 

7 . 9305 

XEASWA 

5 

PKPL2 

PKPLD 

FPPL2 

.  33 

.50 

1.00 

32.0000 

40.0000 

48.0000 

96.0000 

104.0000 

112.0000 

160.0000 

.0750 

.0350 

.0150 

0.0000 

0.0000 

0.0000 

0.0000 

0000 

9200 

8000 

FACD- 

0.0000 

0003 

PMURC 

.0003 

P  T  A  A  W 

9  984 

S  UR  UP  G 

.  9984 

9435 

XEASWN 

1.9812 

XURGS 

0000  64.0000 

0000  128.0000 


0100  .0050 

0000  0.0000 


.0013  PTASW  .0013  PTURG 

3.9620 


START  OF  ITERATION  I-  2  THROUGH  ATTRITION  PORTION  OF  CTFMOD 
ATT-  0.0000 


DISPLAY  RESULTS  OF  AIR-TO-AIR  BATTLE 
flPrrs  0.0000  *FGhTP=  47.g?C0 


.00  13 


A T ( i  )  *  0.0000 

AT ( 2  >  *  0.0000 

A T ( 3  )  *  0.0000 

FTSOPU*  0.0000  ATSORU-  0.0000 
ATABT (  1,KRB)  -  40.0000  ATART(2,KR8)» 

ATABT<1,KRB)«  20.0000  AT  ABT  (2,KRB)- 
ATABT  (1,KRB)-  20.0000  A T A 9 T ( 2, KR B  )  » 

AESCA&m*  100.0000  AESCAB(2)« 
RFLATIVE  CARRIER  CAPABILITY  (XEFFCM) 
END  OF  SUBROUTINE  CTFMOD 


40.0000  FOR 
20.0000  FOR 
20.00C0  FOR 
100.0000 
IS  NOW  .95*3. 


KR  B  »  1 
KR  B  »  2 
KR  B  *  3 


REMINDER— THIS  IS  PERIOD  2,  TASK  FORCE  IS  IN  REGION  1. 


a 

I 

VO 


START  SUBROUTINE  SHPSHP 

BLUE  AIRCRAFT  FROM  CARRIER—  92.02.  BLUE  AIRCRAFT  REQUIRED  TO  DESTROY  ALL  VULNERABLE  RED  SHIPS—  29.16. 

X  A  T  TC  K  -  70.4219.  A  AK *  1.4582.  ATSORU-  27.7053 

XFGHTR-  47.9200,  FAK-  0.0000,  FTSORU-  0.0000 

SINCE  THERE  ARE  SUFFICIENT  BLUE  AIRCRAFT  TO  DESTROY  ALL  VULNERABLE  RED  SHIPS,  THERE  IS  NO  ATTRITION  TO  BLUE  SHIPS. 
(THE  SHIP-TO-SHIP  INTERACTION  DOES  NOT  TAKE  PLACE.) 


KINO  OF  BLUE  SHIP 

X PL  A  T 

XEAAW 

XEASWA 

XEASWN 

XURGS 

BLUE  SHIPS  IN  TASK  FORCE 

2.00 

7.93 

5.94 

1.98 

3.96 

RELATIVE  CARRIER  CAPABILITY  (XEFFCM) 

EQUALS 

.9553. 

SURFACE  SHIP  RESULTS  (NOTE— RED  SHIP 

KINDS  1 

ANO  2 

ARE  SUBMARINES, 

WHICH 

KIND  OF  RED  SHIP 

3 

4 

INITIAL  RED  SHIPS  IN  REGION 

0.00 

2.92 

RED  SHIPS  VULNERABLE  TO  BLUE  ATTA-CK 

0.00 

2.92 

RED  SHIPS  DESTROYED  BY  BLUE  AIRCRAFT 

0.00 

2.92 

RESULTANT  REO  SHIPS  IN  REGION 

0.00 

0.00 

END  OF  SUBRHUTINF  SHPSHP 


START  SUBROUTINE  POWERP 
TASK  FOPCE  IS  IN  REGION  1. 

POWFR  PROJECTION  SORTIE  RATES  FOR  THIS  REGION  ARE  ZERO.  NO  POWER  PROJECTION  PERFORMED. 
END  OF  SUBROUTINE  POWERP 


START  SUBROUTINE  ADD  MOE 

X  P  L  A  T  =  2.0000  XEFFCM*  .9553  XSHIP-  21.B171  I5TDP-  0  ITP-  2 

END  OF  SUBROUTINE  ADDMOE 


START  SUBROUTINE  MOVTF 

DUPING  PFRIOD  2  TASK  FORCE  MOVES  FROM  REGION  1  TO  REGION  2. 

BARRIER  BETWEEN  REGIONS  1  AND  2  IS  CONTROLLED  BY  BLUE,  HENCE  THERE  IS  NO  ATTRITION  TO  THE  TASK  FORCE. 
END  OF  SUBROUTINE  MOVTF 


START  SUBROUTINE  MOVRS 

ATTRITION  TO  RED  SHIPS  TRANSITING  BLUE-CONTROLLED  BARRIERS  DURING  PERIOD 
BARR  IE  P  BETWEEN  REGIONS  1  AND  2 
RED  SHIPS  ATTEMPTING  TRANSIT 
RFD  SHIPS  KILLED 
BL'JF  BARRIER  SUBMARINES  — 

BARRIER  BETWEEN  REGIONS  2  AND 
RED  SHIPS  ATTEMPTING  TRANSIT 
RED  SHIPS  KTLLFD 

BL'JF  BARRITR  SU  B  MA  R  1  ME  S  —  1.54 


BY  KIND  OF  RED  SHIP 


.07 

.01 


.04 

.00 

4.47  INITIALLY  LESS 
3 

.09 

.00 

INITIALLY 


0.00 

0.00 


0.00 

0.00 


.01  COUNTERKILLED  YIELDS  4.46  SURVIVING. 


FLCw  (IF  WED  jHIPS 
R  FT,  TUN  1 


DUPING  PF 0  I OD 


BY  KIND  OF 


.  05 
.00 
LESS 

REO  SHIP 


.42 

.04 

.81 


1.80 

.20 

COUNIERK ILLf D  YIELDS 


.74  SURVIVING. 


INI  1  I A  L  RFl)  SHIPS  IN  REGION 

.12 

.  14 

0. 00 

0.00 

RED  SHIPS 

ENTERING  REGION 

0.00 

0.00 

0.00 

0.00 

RED  SHIPS 

LEAVING  REGION 

.04 

.07 

0.00 

0.00 

RESULTANT 

RED  SHIPS  IN  REGION 

.07 

,07 

0.00 

0.00 

REGION  2 

INITIAL  REO  SHIPS  IN  REGION 

1.04 

.60 

0.00 

6.75 

RED  SHIPS 

ENTFRING  REGION 

.13 

.11 

.  39 

1.59 

RED  SHIPS 

LEAVING  REGION 

0.00 

0.00 

0.00 

0.00 

RESULTANT 

RED  SHIPS  IN  REGION 

1.17 

.71 

.  39 

8.34 

REGION  3 

INITIAL  RED  SHIPS  IN  REGION 

.29 

.12 

.66 

4.73 

RED  SHIPS 

ENTERING  REGION 

.14 

.01 

.02 

.35 

RED  SHIPS 

LEAVING  REGION 

.09 

.05 

.42 

1.00 

RESULTANT 

RED  SHIPS  IN  REGION 

.  34 

.09 

.25 

3.28 

REGION  4 

INITIAL  RED  SHIPS  IN  REGION 

2.15 

1.19 

15.47 

5.76 

RED  SHIPS 

ENTERING  REGION 

.19 

.25 

.17 

1.69 

PED  SHIPS 

LEAVING  REGION 

.14 

.01 

.02 

.  35 

RESULTANT 

RED  SHIPS  IN  REGION 

2.20 

1.43 

15.62 

7.11 

RFGION  5 

INITIAL  RED  SHIPS  IN  REGION 

2.05 

2.94 

23.06 

19.02 

RFD  SHIPS 

ENTERING  REGION 

0.00 

0.00 

0.00 

0.00 

PED  SHIPS 

LEAVING  REGION 

.19 

.  25 

.17 

1.69 

RESULTANT 

RED  SHIPS  IN  REGION 

2.67 

2.69 

23.71 

17.33 

END  n F  SUBROUTINE  MOVRS 


START  SUBROUTINE  ABATCK 

TASK  FORCE  IS  NOW  IN  REGION  2 

INSUFFICIENT  BLUE  ATTACK  AIRCRAFT— -NO  AIRBASE  ATTACK* 
END  OF  SUBROUTINE  ABATCK 


END  OF  PERIOD  2 


FOR  BREVITY,  THE  RESULTS  OF  PERIODS  3  THROUGH  8  HAVE  BEEN  DELETED. 


START  OF  PERIOD  9 
LOCTF*  5 


START  SUBROUTINE  GNAATK 

B  M  T  *  11.4601  FST-  54.2202  NT  PSL  A  *  1  HP*  9 


THE  FOLLOWING  VALUES  APE  FOR 
ESCU)-  6.0982 

BMR(I#1)-  1.7999 

BMR ( I j  2 ) *  .9193 

BMR  C I »  3 1  *  .  2572 

AIRCRAFT  ON  GROUND  ON  AIRBASE 
AESCAB(I)*  1.5245 
ATABT  (l/l)-  .4500 

AT  AB  T ( I  *  2 ) *  . 2C4  8 

ATABT  (I»3)«  . C  2  9  6 


1 


1  — 


THF  FOLLOWING  VALUFS  ARE  FOP  1  =  2 
F S C  (  I  )  =  48.1220 

PMRf  f.lls  4.  ft  014 


II- 


9MR(If2)*  1.7146 
BHR ( I f  3 ) *  2.0877 

AIRCRAFT  ON  GROUND  ON  AIRBASE  I  -  2 

A  E  SC  AB ( I  )  =  12.0305 

ATABTUfD-  1.2003 

ATABT(If2)«  .<.286 

ATABT ( I »  3) *  .5219 

END  OF  SUBROUTINE  GNAATK 


START  SUBROUTINE  PL  B  AB 


o 


START  SUBROUTINE  AIRAIR 


Ell)* 

54.2202 

EAI  1  )  - 

4.9069 

EKIl  ) 

0  I  1  )* 

77.7028 

OAK  1  )  - 

58  .2771 

DK 1(1) 

0  A  2  I  1  )  * 

0,0000 

DK2I1) 

DA  I  1  )  - 

o.ooco 

DKIl  ) 

D  I  2  >• 

119.5502 

DAI  I  2  )  - 

0.0000 

DK1  (2 ) 

D A2  I  2  )  * 

0.0000 

DK2I2 ) 

DM2)- 

0.0000 

DK  I  2  ) 

All)* 

6.6013 

AAI  11  - 

.0000 

AKI  1  ) 

AC2)- 

2.5339 

A  A  (  2  )  * 

.0000 

A  K  I  2  ) 

a  m- 

2 .3449 

AAI 3) * 

.0001 

AKI  3) 

END  OF  SUBROUTINE  AIRAIR 


32.2390 

EH  1 1  )  ■ 

17.0742 

4.4570 

0.0000 

4.4570 

0H1 C 1  )- 
DH2I1  )* 
OH  I  1 ) » 

14.9687 

58.2771 

73.2457 

13.2384 

0.0000 

13.2384 

DH 1 1  2 ) * 
DH2I2 ) » 
DH I  2 ) * 

106.3118 

0.0000 

106.3118 

6.6013 

AH  I  1 ) * 

0.0000 

2.5339 

AHC21- 

0.0000 

2.3448 

AHI 3) * 

0.0000 

B  MR ( 1#KRB ) 

0MR  I  IfKRB ) « 

B  MR ( 1  *  K  R  B  )  = 

E  S,C  <1  P 
ATABT I  1#KRB ) 
ATABT  I  1  #  K  R  B  )  s 
ATABT (  1,KRB  )  = 

AE  SCAB  (1  )  i 
PL8L  BO (KBOfL  9  ) 
PLBLRDt  If  1 ) * 
PLBLBDI  If  2) 
PLBLBDI  If  3  ) 

PL  B  L  BO  t  If  A  ) 
PLBLBOI If  5) 
PLBLBDI 2f  1  ) 
PLBLB0(2f  2  ) 
PLBLBDI  2f3  ) 
PLBLBDI  2f  4) 
PLBLBOI 2f  5 ) 


END  OF  SUBROUTINE 


.0000 
.OCOO 
,0000 
.  5  519 
.<.500 
,204  e 
.0266 
3.4449 

,0000 
.2298 
.0000 
.  0000 
.4722 
.0000 
5649 
.0000 
.  5021 
.  6  44  8 
PL  BAB 


B  MR ( 2fKRB I- 
B MR  I  2f  KRB  )  ■ 
BMR  I  2f  KRB  I  - 
ESC  12  )  - 
ATABT(2fKRB  )» 
ATABT! 2f  KRB  )  * 
ATABT(2fKRB)» 
AESCABI2  )  - 


.0000 

FDR 

KRB 

■ 

.0000 

FOR 

KRB 

■ 

.0001 

FOR 

KRB 

* 

4.3550 

1.2003 

FOR 

KRB 

■ 

.4286 

FDR 

KRB 

« 

.5219 

FOR 

KRB 

* 

27.1844 


1 

2 

3 

1 

2 

3 


START  SUBROUTINE  SUB  SUB 
TASK  FORCE  IS  IN  REGION  5 

RESULTS  OF  THE  BLUE  SU BMA R I M E /RE 0  SUBMARINE  INTERACTION 


INITIAL  BLUE  SUBMARINES  IN  TASK  FORCE -  .03 

(ALL  BLUE  SUBS  ENGAGE  IN  COMBAT •  ) 

RFO  SUBMARINES  CAPABLE  OF  ATTACKING  BLUE —  3.46 
BLUE  SUBMARINES  KILLED  BY  RED  SUBMARINES—  .00 

RESULTANT  ft  LUF  SUBMARINES  IN  TASK  FORCE -  .03 

PFSULTS  OF  THE  BLUE  SUBMAR INE /REO  SURFACF  SHIP  INTERACTION 

BLUE  SUBS  ATTACKING  RED  SUPFACE  SHIPS -  .03 

(All  PII1F  SIIRS  THAT  SlIRtfTVFO  P  F  0  SUBS) 


INITIAL  RED  SUBMARINFS  IN  REGION -  4.05 

REO  SUBS  ENGAGING  IN  COMBAT -  3.80 

BLUE  SUBMARINES  CAPABLE  OF  ATTACKING  REO—  .02 
RED  SUBMARINES  KILLED  BY  BLUE  SUBMARINES—  ,01 
RESULTANT  RED  SUBMARINES  IN  REGION -  4.04 

INITIAL  RED  SURFACE  SHIPS  IN  REGION -  38.50 

RED  SURFACF  SHIPS  ENGAGING  IN  COMBAT -  34,26 


RED  SURF. SHIPS  CAPABLE  UF  ATTACKING  BLUE—  30.49 

BLUE  SUBS  KILLEO  BY  RED  SURFACE  SHIPS -  .01 

RESULTANT  BLUE  SUBMARINES  IN  TASK  FORCE -  .02 

OVERALL  BLUE  RESULTS—  .03  BLUE  S SN  I DS  I  INITIALLY  LESS 
OVERALL  RED  RESULTS,  BY  KINO  OF  RED  SHIP. 


KIND  OF  RED  SHIP  1 

INITIAL  RED  SHIPS  IN  REGION  1.01 

RED  SHIPS  KILLED  .01 

RESULTANT  REO  SHIPS  IN  REGION  1.80 

END  OF  SUBROUTINE  SUBSUB 


BLUE  SUBS  CAPABLE  OF  ATTACKING  RED  SURF.— 

RED  SURFACE  SHIPS  KILLED - 

RESULTANT  RED  SURFACE  SHIPS  IN  REGION - 

.01  KILLED  YIELDS  .02  SURVIVING. 
(ATTRITION  IS  PROPORTIONAL.) 

2  3  4 

2.24  23.08  15.42 

.01  .01  .00 

2.23  23.08  15.41 


.02 

.01 

38.49 


START  SUBROUTINE  C  TF  MOD 
ATT-  .0001 


u 

i 

ro 


UBAEWL 

.1400 

UB  AEW 

.  1400 

A  EWO 
220.00 

STAR 

200.00 

CAPML 

1.50 

C  A  P  M 

2.00 

BUCAP 

6.00 

OL  I  A 

.67 

WVSIZ 

2.00 

T  1 

8.00 

T  2 

3.00 

T  3 

0.00 

T  4 

1 . 00 

VC  A  P 

12.00 

C  A  P MR 

50,00 

TC  AP 

1  .  50 

CAPSTAR 

100.00 

BARL 

1000.00 

UBASWL 

.1000 

BARE  AL 
400.0000 

UBASW 
.  2500 

BAREA 

1900.0000 

AS  W  F 

.  0500 

PKASW 

.5000 

ST 

1.8048 

PDIN 

.2000 

PKIN 
.  5000 

Z  L AMP  F 
2.0000 

PKI  IN 

.15 

ESR 

15.00 

E  SLR 

ft. 00 

SUBSOR 

15.00 

TPS 

2.  50 

ZMPC  AP 

3.00 

ZMPCL 1 
3.00 

STG 

2.23 

ZMPSTG 

5.00 

STSALV 

2 .00 

X  A  S  W 

20.00 

X  A  E  W 

20.00 

XASWL 

0.00 

XAEKL 

0.00 

XEASWA 

0.00 

XE  A  SUN 
0.00 

XEAAW 

0.00 

XPLAT 

7 . 00 


-13 


XD 

.00 

XPDASW 

.00 

XSURS1 

1.80 

XSTG1 

2.23 

XSURS2 

1.80 

X  TOT  E 

0.00 

X S UR  S3 

1.80 

RS(1,L  I- 

1.0047  R  S  ( 2 , L ) 

XSALVS 

3.61 

XPST 

.10 

XAE WSTA 

2.80 

XCAPSTA 

.00 

xz 

316.50 

X  Z 

316.50 

2.2309  FOR  L  -  5 


START  OF  ITERATION  I-  1  THROUGH  ATTRITION  PORTION  OF  C  TFMOD 


ATT*  .0001 


XTB 

-33.34 

XTB 

CAN 

BE 

NEGATIVE. 

XWR 

0.00 

XOL  I 

0.00 

XDL  I 

0.00 

XDLIENG 

0.00 

XL 

-18.10 

XL 

C  AN 

BE 

NEGATIVE. 

XTHETST 

0.00 

XC APENG 

0.00 

XOL  I  ENG 

0.00 

XC  AP  ENG 

0,00 

IF  SO,  FUNCT1  WILL  SET  APPROPRIATE  VALUES  TO  0 


IF  SO,  FUNCT3  WILL  SET  APPROPRIATE  VALUES  TO  0 


a 


START  SUBROUTINE 
FK*  O.OCOO 

ATRTIA 

EK« 

O.OCOO 

BK- 

0.0000 

END  OF  SUBROUTINE 

ATRTIA 

FOR  KK- 

1, 

TATK- 

0.0000 

FOR  KK* 

2, 

TATK- 

0.0000 

FOR  KK* 

3, 

T  ATK- 

0.0000 

ATKT (  1  ) * 

0,0000 

ATKT (2 )- 

0.0000  ATKT (31*  0.0000  ATKT ( 

AT (  1  )* 

.0000 

A  T  I  2  I  ■ 

.0000  A T I  3 ) *  .0001  AT  C 

FOR  K* 

1, 

A  T  1  (  K  )  * 

.0000 

—  SO  FAR  I  THROUGH  K  -  1)  ATKTT- 

0.0000 

AFST- 

4. 9069 

AESCKT* 

0.0000 

FGHTRl- 

0. 0000 

FGHTRK- 

0.0000 

AIT- 

. 

0001 

XTB  *  -1G.02  X TO  CAN  BE  NEGATIVE.  IF  SO,  FUNCTl  WILL  SET  APPROPRIATE  VALUES  TO  0 


XWB 

0.00 

XDL  I 

C  .00 

XOL  I 

0.00 

XDLIENG 

0.00 

XL 

111.79 

XL  CAN  BE  NEGATIVE. 

IF  SO,  FUNCT3  WILL  SET  APPROPRIATE  VALUES  TO  0 

XTHETST 

0.00 

XC APENG 

0.00 

XDL  IE  NG 

0.00 

XC APENG 

0.00 

START  SUBROUTINE  ATP  T  I  A 


FK  * 

0.0000 

EK*  0 

.0000 

BK*  0. 

,0000 

END  OF 

SUBROUTINE 

ATRTIA 

FOR  KK- 

2, 

T  ATK* 

0.0000 

FOR  KK- 

3, 

TATK* 

0.0000 

ATKT (1) 

« 

0.0000 

A  TK  T ( 2  )  * 

O.OCOO 

ATKT ( 3)  - 

0.0000  A  TK  T ( 

AT  (  1) 

r 

.0000 

A  T  1 2  )  3 

.  0000 

AT  (3)* 

.0001  ATI 

FCR  K- 

2, 

A  T 1  (  K  ) 

-  .0000 

—  sn  FAR  (THROUGH 

K  •  2)  ATKTT- 

0.0000 

AEST 

-  4.9059 

AESCKT* 

0.0000 

FGHTPL 

*  0.0000 

FGHTRK* 

0.0003 

ATT*  .0001 

-.65  XTB  CAN  BE  NFGATIVE. 

o .  no 


xTe 

XUP 


IF  SO,  FUNCTl  WILL  SET  APPROPRIATE  VALUES  TO  0 


t?T- 


a 


XDL  I 
XDLI 
XDL  IENG 
XL 

XTHETST 
XC  APENG 
XDL  I  ENG 
XC  A  PENG 


0.00 

0.00 

0.00 

171.79 

2.07 

.00 

0.00 

.00 


XL  CAN  BE  NEGATIVE.  IF  SO,  FUNCT3  WILL  SET  APPROPRIATE  VALUES  TO  0. 


START  SUBROUTINE  ATRTIA 


Fk- 

.0010 

EK- 

.0013 

BK« 

0000 

END  OF  SUBROUTINE  ATRTIA 

FOR  KK*  3, 

TATK- 

.0000 

ATKT  <  1  I  * 

0,0000  ATKT (2  )  * 

0.0000  ATKT  C3>- 

.0000  ATKT ( 

A  T  (  n  * 

.0000 

AT<2  1  * 

.0000 

A  T  (  3  >  • 

.0001  ATI 

FOP  K*  3, 

A  T  1  (  K  )  * 

.0001 

—  SO  FAR 

ITHRDUGH 

K  *  3)  ATKTT*  .0000 

AEST* 

4. 9046 

AESCKT-  .0013 

FGHTRL- 

.  0010 

FGHTRK*  .0010 

AESCK* 

.  0013 

DISPLAT  RESULTS  OF  ASM-VS-SHIP 

BATTLE 

XATS1 

11 

.15 

FHPRTt 1 ) * 

.0000 

FMRBTL2I* 

.0000 

FMRBTL  3) • 

.0000  FMRBTt 

FMRBT (NKR3+1 ) *  1. 

0000 

PKSS 

FPPL1 

PKPL  1 

PKPL2 

PKPLD 

FPPL2 

.75 

7.00 

.75 

.33 

.50 

1.00 

TAB10 

8.0000 

16.0000 

24.0000 

32.0000 

40.0000 

48.0000  56.0000  64.0000 

72 . 0000 

80.0000 

80.0000 

96.0000 

104.0000 

112.0000  120.0000  128.0000 

136.0000 

144.0000 

1 52.0000 

160. 0000 

T  A  B  1  3 

.  6000 

.  3000 

.  1500 

.0750 

.0350 

.0150  .0100  .0050 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000  0.0000 

0. cooo 

0.0000 

0. 0000 

0.0000 

XATS2 

11 

.15 

XNPPL AT 

5 

.58 

X  AT  S  3 

5 

,58 

XATS4 

5 

.57 

ENACD* 

.0000  PIACD* 

.0000  F  AC  D  * 

0000 

FDMC  V- 
ADMC  V * 
XPS  A 
XEFFCN 
PMA  AW 
SURAA W 
XEAAW 


.  0000 
.0000 


0.0000 

1.0000 

0.0000 


XFGHTR* 
XATTCK* 
.02 
.00 
PMASW 
Sl'RASW 
X  E  A  SWA 


26.0646 

35.6260 


0.0000 

1.0000 

0.0000 


PMURG 
SURURG 
X  E  AS  WN 


0.0000 

1.0000 

0.0000 


PTAAW 


XURGS 


PTASW 


PTURG 


0.0000 


START  OF  ITERATION  I*  2  THROUGH  ATTRITION  PORTION  OF  CTFMOD 
ATT*  .C001 

XTB  CAN  BF  NEGATIVE 


XTB 
X  uB 
XDL  I 
XDLI 

XDL  IENG 
XL 

XTHETST 
XC  APENG 
XDL IENG 
XC  APENG 


-6.69 
0  .00 
0.00 
0.00 
0.00 
101 .90 
.20 
.00 
0,00 
.00 


XL  CAN  BE  NEGATIVE. 


START  SUBROUTINE  ATRTIA 
fk=  .onm  f  k  = 


IF  SO,  FUNCT1  WILL  SET  APPROPRIATE  VALUES  TO  0. 


IF  SO,  FUNCT3  WILL  SET  APPROPRIATE  VALUES  TD  0. 


0.0000 


t  Nil  UF  iUbKHUI  INt  A  I  K  I  1  A 


FDR  KK* 

1» 

T  ATK  * 

,0000 

FOR  KK  » 

2, 

TATK- 

.0000 

FOR  KK* 

3, 

TATK* 

.0000 

ATKT ( 1)* 

.0000 

ATKT I  2 )  = 

AT (1)  * 

.0000 

A  T  (  2  )  * 

FOR  K  - 

1, 

A  T 1  (  K  ) 

«  .0000  — 

AEST 

*  4.9066 

FGHTPL 

-  .0001 

ATT- 

.0001 

XTB 

-.85  XTB  CAN 

XWB 

0.00 

XDL  I 

0.00 

XDL  I 

0.00 

XOLIENG 

0.00 

XL 

171.79  XL  CAN 

XTHETST 

2.07 

XCAPENG 

.00 

XOL  IENG 

0.00 

XCAPENG 

.00 

0000  A  TK  T ( 3  )  ■  .0000  A  TKT ( 

0000  AT ( 3  )  -  .0001  ATI 

SO  FAR  (THROUGH  K  -  1)  A  TKTT •  .0000 

AESCKT-  .0002 

FGHTRK-  .0001 

BF  NEGATIVE.  IF  SO,  FUNCT1  WILL  SET  APPROPRIATE  VALUES  TO  0 


BE  NEGATIVE.  IF  SO,  FUNCT3  WILL  SET  APPROPRIATE  VALUES  TO  0 


START  SUBROUTINE  ATRTIA 

FK*  .0009  EK*  .0011  BK*  .0000 

END  OF  SUBROUTINE  ATRTIA 


FOR  KK* 

2, 

T  ATK  *  .0000 

FOR  KK- 

3  r 

TATK-  .0000 

ATKTm 

- 

.0000  ATKT  (2  )  - 

,0000  ATKT ( 3  )  • 

.0000  ATKTI 

at  m 

a 

.0000  AT  ( 2  )  * 

,0000  A  T ( 3  I  * 

.0001  ATI 

FOR  K- 

2, 

AT1IK  )•  .0000  — 

SO  FAR  (THROUGH  K  -  2)  ATKTT- 

.0000 

d 

AEST*  4.9046 

AESCKT- 

.0013 

1 

FGHTRL*  .0009 

FGHTRK- 

.0010 

H 

A  T  T  = 

. 

0001 

XTB 

17.48  XTB  CAN 

BE  NEGATIVE. 

IF  SO,  FUNCT1  WILL 

SET  APPROPRIATE 

XWB 

7.00 

XDL  I 

14.00 

XDL  I 

0.00 

XDL  IENG 

0  .CO 

XL 

291.79  XL  CAN 

BE  NEGATIVE. 

IF  SO,  FUNCT3  WILL 

SET  APPROPRIATE 

VALUES  TO  0 


VALUES  TO  0 


X THE  I  ST 
XC APENG 
XOLIENG 
XC APENG 


6.28 

.00 

0.00 

.00 


STAPT  SUBROUTINE  ATRTIA 

F K  *  .0021  EK-  .0027  BK-  .0000 

END  OF  SUBROUTINE  ATRTIA 


FOR  KK*  3, 

TATK* 

.0000 

ATKT  {  1  )  * 

.0000 

ATKT(2I« 

.0000 

ATKT ( 3 1 * 

.0000  ATKTI 

AT  (1  )- 

.0000 

A  T  (  2  )  * 

.0000 

A  T  (  3  )  * 

.0001  AT ( 

FOR  K*  3, 

AT  1 ( K  1  * 

.0001 

—  SO  FAR  (THROUGH  K 

-  3)  ATKTT* 

AE  ST- 

4. 8998 

AFSCKT* 

FGHTRL- 

.  0021 

FGHTRK- 

AE  SCK  - 

.  00  4  0 

.0000 

.0040 

.0031 


DISPLAY  RESULTS  OF  AlP-TO-AlP  BATTLE 


AF5C- 

A  T  Cl)* 

AT  (2  )» 

AT  (3  )  » 
FTSCIRU* 

ATABT ( 1 , KR  B  )  ■ 
ATABT ( 1 »  KR  3  )  * 


4.9029  XFGHTR*  26.0615 
.0000 
.  0000 
.0001 

0.0000  A T  S  OR U 3  .0126 

.4500  ATABT ( 2,KPB  )  - 
.2048  ATABT  (  2 , KR  6 >• 


ISTflUl  I  ,KRRI> 


.  0  W  8  *  A  T  A  »U  I  ?  .  k  R  R  1  = 


1.2004  FOP  KR  B  *  1 
. 4  2  B  6  FUR  KRB  -  2 
.  *5  ??  0  FOR  KRB  *  3 


91- 


AEbCABC  1>=  3.9963  AESCAB(2>«  31.5369 

RELATIVE  CARRIER  CAPABILITY  (XEFFCM)  IS  NOW  .0000, 
END  HF  SUBROUTINE  CTFMOD 


REMINDER  — THIS  IS  PERIOD  9,  TASK  FORCE  IS  IN  REGION  5. 


.00. 

.0000, 

0.0000, 


ATS  ORU  * 
FTSORU- 


START  SUBROUTINE  SHPSHP 
BLUE  AIRCRAFT  FROM  CARRIER 
XATTCK*  3  5 . 6260i  A  AK* 

XFGHTR-  26.0615,  F  AK « 

BLUE  SURFACE  SHIP  RESULTS 
KIND  OF  BLUE  SHIP 
INITIAL  BLUE  SHIPS  IN  TASK  FORCE 
BLUE  SHIPS  DESTROYED 
RESULTANT  BLUE  SHIPS  IN  TASK  FORCE 


BLUE  AIRCRAFT  REQUIRED  TO  DESTROY  ALL  VULNERABLE  RED  SHIPS- 


973.27. 


X  PL  A  T 
2.00 
0.00 
2.00 


.0129 

0.0000 

XEAAW  XEASWA  XEASWN  XURGS 

0.00  0.00  0.00  0.00 

0. 00  0.00  0.00  0.00 

0.00  0.00  0.00  0.00 


CARRIER  CAPABILITY  OEGRAOED  BY  .7258,  NEW  RELATIVE  CARRIER  CAPABILITY  (XEFFCM)  EQUALS  .0000. 

PED  SURFACE  SHIP  RESULTS  (NOTE— PEO  SHIP  KINDS  1  AND  2  ARE  SUBMARINES,  WHICH  DO  NOT  PARTICIPATE  IN  THIS  INTERACTION.) 


KIND 

OF  RED  SHIP 

3 

4 

INITIAL  RED  SHIPS  IN 

REGION 

23.08 

15.41 

RED 

SHIPS  VULNERABLE 

TO 

BLUE  ATTACK 

17.31 

10.79 

RED 

SHIPS  DESTROYED 

BY 

BLUE 

AIRCRAFT 

.00 

.00 

RED 

SHIPS  DESTROYED 

BY 

BLUE 

SHIPS 

0.00 

0.  00 

RESULTANT  RED  SHIPS 

IN 

REGION 

23.08 

15.41 

ENACD* 

1.1160  PIACD 

* 

. 

0093  F  AC  0 

*  0, 

,0000 

FDMC V- 

O.OCOO  XFGHTR 

• 

26. 

0615 

ADMC  V- 

O.OOOC  XATTCK 

■ 

35. 

6260 

END  OF  SUBROUTINE  SHPSHP 


START  SUBROUTINE  POWERP 
TASK  FORCE  IS  IN  REGION  5. 

NO  BLUE  AIRCRAFT  AVAILABLE.  Nn  POWER  PROJECTION  PERFORMED. 
END  OF  SUBROUTINE  POWERP 


START  SUBROUTINE  ADD  MO  E 

X  PL  A  T  *  2.0C00  XEFFCM-  .0000  XSHIP-  2.0000  ISTOP-  1  ITP-  9 

END  OF  SUBROUTINE  ADDMOE 


END  OF  PERIOD  9 
END  OF  PROGRAM  MEDMOO 


SUMMARY  OF  RFSULTS  DF  MEDMOD  SIMULATION 


NOTE--1 ) PER IOO  '1  CORRESPONDS  TO  INITIAL  VALUES. 

2 )  PE  R 1 00  0  CORRESPONDS  TO  VALUES  AFTER  THE  D-DAY  SHOOTOUT. 

3 )  A L L  OTHER  VALUES  LISTED  BELOW  ARE  AS  OF  THE  END  OF  THE  CORRESPONDING  PERIOD. 

4  )  N1JMBE  R  OF  CARRIERS  (XPLAT)  IS  2.0.  TOTAL  BLUE  SURFACE  SHIPS  COLUMN  BELOW  EXCLUDES  CARRIERS. 


-SUMMARY 

OF  RE  SUL 

.  TS  FOR  BLUE - 

-SUMMARY 

OF  RESULTS  FOR  RED 

CUML  TV 

TOTAL 

FIGHTER 

ATTACK 

LAND-BSD 

POWER 

CUML  T I VE 

TOTAL 

WGHTEO 

SURFACE 

TOTAL 

AIRCRAFT 

AIRCRAFT 

INTCPTR 

PROJECTN 

WGHTD  PP 

SURFACE 

TOTAL 

TOTAL 

FIGHTER 

INTCPTR 

I  TP 

XEFFCM 

EFCTVNS 

SHIPS 

SUBS 

(ON  CV) 

(ON  CV) 

AIRCRAFT 

SORTIES 

SDR  TIES 

SHIPS 

SUBS 

BOMBERS 

AIRCRAFT 

AIRCRAFT 

-1 

1.0000 

0.0000 

20.00 

24.00 

48.00 

72.00 

246.00 

0.00 

0.00 

66.00 

24.60 

160.00 

200.00 

50.00 

0 

.9560 

0.0000 

19.  85 

24.00 

47.92 

71.80 

246. 00 

0.00 

0.00 

64  .00 

22.60 

160.00 

200.00 

50.00 

1 

.9557 

0.0000 

19.  85 

9.91 

47.92 

71.98 

246.00 

0.00 

0.00 

00.23 

21.77 

160.00 

200.00 

50.00 

2 

.  9553 

0.0000 

19.  82 

9.56 

47.92 

70.42 

246.00 

0.00 

0.00 

76.02 

21.43 

160.00 

200.00 

50.00 

3 

.8457 

.  8457 

14.94 

6.90 

42.50 

62.21 

246.00 

0.00 

0.00 

67.30 

16.53 

152.40 

196.05 

36.06 

4 

•  6 195 

1.6652 

13.42 

6.06 

35.21 

54.44 

235.66 

.05 

.01 

63.00 

17.70 

118.  10 

163.50 

32.69 

5 

.0010 

2.4669 

12.36 

5.73 

28.79 

47.85 

235.66 

.05 

.03 

60.92 

17.42 

111.62 

160.81 

28.65 

6 

.  5246 

2.9915 

1.60 

5.25 

28.79 

41.45 

231.20 

0.00 

.03 

59.13 

16.01 

5  1.15 

113.55 

26.67 

7 

.2904 

3.2719 

.09 

5.21 

28 . 79 

36.30 

231.20 

0.00 

.03 

58.08 

15.71 

50.85 

112.67 

25.40 

8 

.0004 

3.2723 

0.  00 

5.20 

26.06 

35.  63 

205.31 

0.00 

.03 

58.06 

15.40 

14.31 

67.78 

25.40 

9 

.0000 

3.2723 

0.00 

5.19 

26.06 

35.63 

187.61 

0.  00 

.03 

58.  06 

15.39 

2.83 

35.53 

2  5.40 

THE  DATA 

BELOW 

GIVE 

THE  LOCATION 

OF  THE  TASK 

FORCE 

( LOCTF ) 

AT 

THE 

START  OF 

EACH 

TIME 

PERIOD 

(  ITP) 

FOR 

ALL 

ITP,  SIMULATED 

OR  NOT 

I  TP 

1 

2 

3 

4 

5  6 

7  8  9 

10 

11  12 

13 

14 

15  16 

17 

18 

19 

20  21 

22 

23 

24 

25  26 

27  28 

29  30 

LOCTF  * 

1 

1 

2 

3 

3  4 

4  5  5 

5 

5  5 

5 

5 

5  5 

5 

5 

5 

5  5 

5 

5 

5 

5  5 

5  5 

5  5 

END  OF  SUMMARY  TABLE 


APPENDIX  E 


THE  MEDMOD  COMPUTER  PROGRAM 


THE  MEDMOD  COMPUTER  PROGRAM 


The  following  is  a  copy  of  the  code  of  the  MEDMOD  com¬ 
puter  program.  Copies  of  this  program  on  appropriate  media 
(cards,  tape,  etc.)  can  be  obtained,  with  the  appropriate 
approvals,  from  the  Institute  for  Defense  Analyses.  Also 
available  from  IDA,  with  the  appropriate  approvals,  are 
copies  of  hypothetical  inputs  on  appropriate  media,  and 
copies  of  the  printouts  produced  by  this  program  with  these 
inputs  . 


E-l 


PROGRAM  DRIVER 


C*  DECK  DRIVER 

OVERLAY (0VER»0>0) 

PROGRAM  DRIVER(INPUT>0UTPUT>TAPE6»0UTPUT>TAPE15>TAPE16>TAPE10) 

C* 

C*  COMDECK  COM  IN  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2)*AAAEDE(2)>AAAEED(l)>AACA>AAPAJO(2)»AAPDDA(2) 
COMMON  AAPDDE(2),AAPDED<1),AAPKA0(2,2),AAPKDA(2,2),AAPKDE(2»1> 
COMMON  AAPKED(1*2>,AASRAA(5),AASRED,AASRFA<5),AASRFE(5)#AASRID 
COMMON  ABANM(2)>ABAVLS(2)>ABCAS>ABESGS(2)>A8FASS(2) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2),ABPKA(2),ABPSA(2,2),ABPDS(2) 
COMMON  ABPKS(2»2)»ABTSC(2)>ABVGSS(2)>ABRSAM(2) 

COMMON  AEWD, AESCAB(2), AS WF , A T A BT { 2, 3 ) , ATT WGT, AVAILE(5,2) 

COMMON  AINTCT, AVAILT(5,2,3  )>AVALED<5, 2), AWRCBB 

COMMON  BACCDW(6),BACPCK<6),BAREAQ(5),BARELQ(5),BARLQ(5)»BMTMIN<5) 
COMMON  BARLTH(5),BECDW(6),BEDW(10),3SIBAR(5),BSSNDS>BUCAP 
COMMON  CACDWO,CAPMLO(5)»CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6>»CPBSCK(10)»CPRPK(10)»CPRSCK(6),C$CDW0 
COMMON  DDFAC(lO)>DDPKC(10),DDPKS(lO),00RKAA(10)>0DRKBA<10) 

COMMON  DDRS  A < 10  )> DOS  PA (10 1 ,Dl I A . DIT ( 2 , 3 ) > D2T (2»  3) 

COMMON  ESLR»FSRQ(5)»ENACDr(4)»ENACDS(10) 

COMMON  FAAC A<  5) >FFAC A ( 5) >  FF ACc ( 5 ) »FAC03( 5>  2) ,FH$K<  2 ) 

COMMON  FM3(b),FPPLI»FPPL2,FSTAO(5),FSTGAO(5) 

COMMON  HRMAAW,HRMASW,HRMURG»HRTAAW,HR  IAS-/,  HRT'JRG 
COMMON  IAADA>IAAED»IABAF>IABAh>IABAE0>IATKRT(5)>IATRIA»ICTL(5) 
COMMON  IDDAC>IDDAS»IKRAS(5),IPLADA,IPIAED,IRSU8A(5),ISSBR,ISSRB 
COMMON  IPPAF,IPPAW 
COMMON  LGTHMP(6),LTFMP(6) 

COMMON  MAX  TP >  M I M P 

COMMON  NABSAM,NKRB,NKRS,NKBDPL»NLOC>NPPSAM 

COMMON  PARK»PASS(2)>PBDRN(2)»P8DRS(2)»PBKRN(2)>PBKRS(2) 

COMMON  PDIN>PKATl»PKDFl>PKASW>PKIIN>PKIN*PKPLDT(4)jPKPLl>PKPL2 
COMMON  PKSST(4),PRSM<10,5,6),PRVLNQ(5) 

COMMON  PLAEDA(2)>PLAEDE(2)>PLAEED>PLBLB0(2>5)>PLCA(5) 

COMMON  PLFDLL(5»5»2)>PLPAJ0(3)»PLP0DA(2)«PLPDDE(2),PLPDFD 
COMMON  PLPKAD(3,2),PLPKDA<2,3),PLPK0E(2),PLPKED<2) 

COMMON  PAFCNF>PFFCNF,PPS0RR(2,5),PPPSAS(2,2),PPPKSA<2,2) 

COMMON  PPRSAM(2)>PPAVSS(2)»PPPKAS(2)>PPAVLS(2>5),PPANMS(2) 

COMMON  PPPDSA(2)»PPFSVS(2)»PPTSCS(2)>PPCAL(5) 

COMMON  PPPDAS(2  )»  PPFASS (2  )  »PPAEGS (2)  *  PPFASM(2) 

COMMON  RACCDW(10),RACPCK( 10) ,RECDW( 10) ,REDW (6),RARBAB ( 3) 

COMMON  RS(10,5),RSIBAR<5) 

COMMON  SBFBCF,SBFBCS»SBFRFA(5),SBFRFC.SBFR$A(5),SBFRSC 
COMMON  SBPBDF  »  SB  PBD  S> S3PBKF>  SBPBKS>  SBPFDB>  SBPFKB>SBPSDB>  SB  PS KB 
COMMON  SMALLR,$SDAAW,SSDASW>SSDURG>STARQ<5),ST$ALV»SUBS0R»SHEL 
COMMON  SSBACR<8),SSCFA,SSFRSV(8,5),SSPBDR,SSPBKR>SSPRDB,SSPRKB 
COMMON  SSFBAK(2,8),SSPRKC 

COMMON  TAB10T(20>4)>TAB12(20)»TAB13T(20»4)»TCAP>THSCAQ(5) 

COMMON  THSCT0(5),TPAS»TPS*T1,T2,T3»T4 
COMMON  UBAEW>UBAEWL>UBASW»UBASWL 
COMMON  VBT(3).VCAP,VI 

COMMON  WFMAAW»WFMASW>WFMPLT»WFMURG»WFTAAW»WFTASW>WFTPLT»WFTURG 
COMMON  WRLND0(5  > » WTFCBO, W VSI  Z,  WF  PPAS(2>5)»  WFTFU5) 

COMMON  XAEK»XAEWLO(S),XASw',XA3«LJ(5).XATTCK>XEAAV.,XEASRA,XE4S.-lN 
COMMON  XF6HTK  .  XPLAT,  VUPC-S,XIM5)  ,XIE  (  5)  ,XNRAB 
COMMON  ZL  AMPF,  XMPCAP,  ZMPDLI »  Z'JPM  r  (  3  )  >  ZMPESC  »  ZMPS  TG 


E-2 


PROGRA n  DRIVER 


C  *  COMDECK  COMIGO 

COMMON/COM IGO/ 
C* 

c 

C*  COMDECK  COMOUT 

COMMON/COMOUT  / 
C* 


C 


IGO 


CWPPAS#CWTPTF,  PPSQRT,NTPSIM#LTASKF(90) 


C 


DIMENSION  IHE  AD ( 3#  28 ) 

DATA  IHYP/4H - / 

DATA  IHEAD  /4H  ,  4H  ,4H  XE,4H  ,4H 

14H  CU,4H  WG ,  4H  XE* 4HMLT V, 4HHTED, 4HF FCM, 4H 
24HOTAL,4HFACE,4HHIPS,4H  , 4H  T,4H  ,4H 
34H  F IG,  4HA IRC , 4H  ( ON, 4HH TE R , 4HR AF T , 4H  CV),4H 
44HTACK, 4HRAF T> 4H  C V ) , 4HL AND , 4H  INT,4HAIRC,4H-BSD,4HCPTR,4HRAFT, 
54H  P, 4HPR  0  J  ,  4H  S OR , 4 HO W ER , 4HE C T N , 4HT I E S , 4HC UML, 4HWGHT, 4H  SOR, 

64HTIVE,4HD  PP,4HTIES,4H  T,4H  SUR,4H  S, 4H0TAL , 4HF ACE , 4HHI PS, 
74H  ,4H  T,4H  , 4H  , 4H0 T At , 4HSU BS , 4H  ,4H  T,4H  BOM  , 

84H  ,4H0TAL,4HBERS,4H  , 4H  F I G, 4H A  IRC  , 4H  > 4HH TE R , 4HR AF T , 

94H  ,4H  INT, 4HAIRC, 4H  , 4HC PT R , 4HR A F T / 


,4HFFCM, 

T ,  4H  $  UR , 4H  S, 
, 4HQ  T  AL , 4HSU3S, 
AT, 4  HA  IRC, 4H  (ON, 


I  HE  AD ( 3 , 3 ) *4H  EFC 
IHEA0(3, 4) *  4HTVNS 


C 

1001  FORMAT (40H1SUMMARY  OF  RESULTS  OF  MEDMOD  SIMULATION  ) 

1C10  FORMATt 1H+,6HN0TE —  ) 

1011  FORMATt 1H0,6X,42H1)PERI0D  -1  CORRESPONDS  TO  INITIAL  VALUES.  ) 

1012  FORMAT ( 1H  , 6X , 59H2 ) P E R I OD  0  CORRESPONDS  TO  VALUES  AFTER  THE  D-DAY 
1  SHOOTOUT.  ) 

1013  FORMAT! 1H  ,6X,70H3)ALL  OTHER  VALUES  LISTED  BELOW  ARE  AS  OF  THE  END 
1  OF  THE  CORRESPONDING  PERIOD.  ) 

1014  FORMAT ( 1H  , 6 X , 3 1H4 ) N UMB E R  OF  CARRIERS  (XPLAT)  I$,F6.1,59H.  TOTAL 
1  BLUE  SURFACE  SHIPS  COLUMN  BELOW  EXCLUDES  CARRIERS.  ) 

1020  FORMAT ( 1H  // 1H  , 5X , 6A4, 27HSUMMAR Y  OF  RESULTS  FOR  BL UE , 6 A 4 , 5 X , 2 A4 , 
126HSUMMAR Y  OF  RESULTS  FOR  RED,2A4) 

1021  FORMAT ( 1H  ,  3X  ,  8  A 4 , 5  1 1  X  ,  2  A4  )  ,  4X ,  4  A4, 3  ( 1 X ,  2  A 4  )  ) 

1022  FORMAT( 1H+, 3HITP  ) 

M  S  T  *  1 0 

C 

PRINT  10 

10  FORMAT( 45H1INPUTS  FOR  THIS  RUN  OF  MEDMOD  ARE  AS  FOLLOWS) 

C*  OVERLAY  1  IS  PROGRAM  INP 

CALL  OVERLAY (4L0VER> 1*0# 6HREC ALL ) 

C* 

WRITE ( MS  T, 100 1 ) 

WRITE(MST,1C11) 

WRITE (MST, 1010) 

WRITE (MST, 1012) 

WRITE (MST, 1C  1 3 ) 

WRITE  (MST, 1014  )  XPLAT 
WRITE (MST, 1020)  < IHYP, J*l, 16) 

DO  50  I  ROW  *  1 , 3 

WRITE (MST, 1021)  ( IHEAD ( I ROW* J ), J « 1, 28  ) 

50  CONTINUE 

WRITE(MST,1C22) 

C 

PRINT  20 


E-3 


PROGRAM  DRIVER 


20  FORMAT! A7H1CUTPUTS  FROM  THIS  RUN  OF  MEDMOD  ARE  AS  FOLLOWS) 

C*  OVERLAY  2  IS  PROGRAM  MEDMOD 

CALL  OVERLAY (  AL  OVE  R  ,  2 , 0,  6HR EC  ALL ) 

C* 

WRITE ( MST> 1079 ) 

WRITE (MST, 1080) 

ICOL  *  1 

MCOL  «  MIN0(MAXTP,30) 

WRITE (MST, 1081)  ( I  TP , I  TP « IC OL , MCOL  ) 

WRITE(MST,1082)  ( L TA S KF ( I  TP ) , I  TP  *  I  COL , MC OL  ) 

I F ( M AX  T  P • L  E ♦ 30  )  GO  TO  30 
ICOL  «  31 

MCOL  «  M I N  0 ( M A  XT  P , 60 ) 

WRITE  (MST, 1081)  ( I T P , I T P« IC OL , MCOL ) 

WRITE (MST,  1082  )  ( LTASKF (  ITP  ), ITP* ICOL, MCOL ) 

IF ( MAXTP . L  E . 60 )  GO  TO  30 
ICOL  «  61 

MCOL  «  MINO(MAXTP, 90 ) 

WRITE (MST, 1081)  (  I T  P  ,  I  T  P *  IC  OL  ,  MC  OL  ) 

WRITE (MST, 1082)  ( L T A S K F ( I T P ) , I T P= ICOL, MCOL ) 

IF (MAXTP. LE. 90)  GO  TO  30 
WRITE (MST, 1083 ) 

1079  FORMAT(IHO) 

1080  FORMAT ( 128H0THE  DATA  BELOW  GIVE  THE  LOCATION  OF  THE  TASK  FORCE  (LO 
1CTF)  AT  THE  START  OF  EACH  TIME  PERIOD  (  I T P  )  FOR  ALL  ITP,  SIMULATED 
2  OR  NOT) 

1081  F  OR  M A  T ( 9H0  ITP  *,3CIA) 

1082  FORM AT ( 9H  LOCTF  *,30IA) 

1083  F OR M A T ( 4 AH ONOT E  —  MAXTP  EXCEEDS  THE  DIMENSION  OF  LTASKF) 

30  CONTINUE 

WR  I  TE ( MS  T,  1079 ) 

C* 

WRITE (MST, 1090) 

WRITE (MST, 1099) 

1090  FORMAT! 21H0END  OF  SUMMARY  TABLE  ) 

1099  FORMAT( 36H0END  OF  THIS  RUN  OF  THE  MEDMOD  MODEL  ) 

STOP  6 A 00 
ENO 
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C  *  DECK  MEDMOD 

OVERLAY (OVER,  2  >  0 ) 

PROGRAM  MEDMOD 
C* 

C*  MEDITERRANEAN  MODEL  —  MEDMOD 

c* 

C*  COMDECK  COMINP 

COMMON  NEPD<1) 

COMMON  AAAEDA(2),AAAEDE(2),AAAEED(l),AACA,AAPAJO(2),AAPDDA(2) 
COMMON  AAPDDE(2),AAPDED(1),AAPKAD(2,2),AAPKDA(2,2),AAPKDE(2,1) 
COMMON  AAPKED(1,2),AASRAA(5),AASRED,AASRFA(5),AASRFE(5),AASRID 
COMMON  ABANM(2),ABAVL$(2),ABCAS,ABESG$(2),ABFASS(2) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2),ABPKA(2),A8PSA(2,2),ABPD$(2) 
COMMON  ABPKS (2,2),ABT$C (2 ),ABVGSS(2 ),ABRSAM(2) 

COMMON  AEWD, AESCAB (2  ), A  SWF, ATA8T( 2, 3) , AT TW GT , A  V  A  I  L E ( 5, 2) 

COMMON  AINTCT,AVAILT(5,2,3),AVALED(5,2),AWRCBB 

COMMON  BACCDW(6),BACPCK(6),BAREAQ(5),BARELQ(5),BARLQ(5),BMTMIN(5) 
COMMON  8ARLTH(5),BECDW(6),BEDW(10),BSIBAR(5),BS$NDS,BUCAP 
COMMON  CACDWO,CAPMLQ(5),CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSCDW0 
COMMON  DDF  AC (10  ) , OD PKC (10 ) , DOPK S (10 ) , OORK A A ( 1 0 ) , DDR  KB  A (10) 

COMMON  DDRSA(10),DDSPA(10),DLIA,D1T(2,3),D2T(2,3) 

COMMON  ESLR»ESRQC5),ENACDT<4)  ,  ENACOSUO) 

COMMON  FAACA(5) ,FFACA(5),FFACE ( 5 ) , F AC  OB ( 5 , 2 ) , FHS K ( 2 ) 

COMMON  FM3(6),FPPL1,FPPL2,FSTAQ(5),F$TGAQ(5) 

COMMON  HRMAAW,HRMASW,HRMURG, HRTA AW, HR TASW, HRTURG 

COMMON  I  A  A  DA  ,  I  A AE  D , I AB  AF  , IABAW,IABAEQ, IATKRT(5),IATRIA, I C TL ( 5 ) 

COMMON  I DD AC , IDDAS,IKRAS(5), I  PL  ADA, IPLAED,IRSUBA(5),  I5SBR,I$$RB 

COMMON  IPPAF, IPPAW 

COMMON  LGTHMP(6),LTFMP (6) 

COMMON  M  A  X  T  P  , MIMP 

COMMON  NA8SAM,NKRB,NKRS,NKBDPL,NL0C,NPP$AM 

COMMON  PARK, PASS (2  )  ^  PBDRN ( 2),PBDRS(2) , PBKRN(2) ,  P  B  K  R  S  (  2  ) 

COMMON  PDIN,PKAT1,PKDF1,PKASW,PKIIN,PKIN,PKPLDT (4) ,PKPL1,PKPL2 
COMMON  P  K  S  5  T ( 4 ) , PR SM ( 1 0 , 5 , 6 ) , PR WL NO ( 5) 

COMMON  PLAEDA(2 ),PLAEDE (2 ) ,PLAEED,PLBLBD(2,5) , P  LC  A ( 5  ) 

COMMON  PLFDLL(5,5,2),PLPAJO(3),PLPDDA(2),PLPDDE(2),PLPDED 
COMMON  PLPKAD(3,2),PLPK0A(2,3),PLPKDE(2),PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5),PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2),PPPKAS(2),PPAVLS(2,5),PPANM5(2) 

COMMON  PPPQSA(2),PPF$VS(2) ,PPTSCS(2) , PPCAL (5) 

COMMON  PPPDAS (2),PPFASS(2) ,PPAEGS (2 ) ,PPFASM(2 ) 

COMMON  RACCDM10),RACPCK( 10),RECDW(10  ),REDW(6),RARBAB (3 ) 

COMMON  RS(10,5),RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),3BFRFC,5BFRSA(5),SBFRSC 
COMMON  S0PBDF,SBPBD5,SBPBKF,SBP8KS,SBPFDB,SBPFK8,SBPSDB,SBPSKB 
COMMON  SMALLR, S5DAAW, SSDASW, SSDURG, ST  ARCH  5 ) , STSALV, 5UBS0R, SHEL 
COMMON  S  S  3  AC  R ( 5  )  , SSCFA, SSFR5V( 3, 5  ), SSPBDR, SSPBKR, SSPRDB,5SPRKB 
COMMON  SSFBAK(2,8),SSPRKC 

COMMON  TAB10T (20,4),TAB12(20),TAB13T (20,4) , TCAP, THSCAQ ( 5  > 

COMMON  TH$CTQ(5),TPAS,TPS,T1,T2,T3,T4 
COMMON  UBAE W,UBAEWL, UBASW, UBASWL 
COMMON  VBT(3),VCAP,VI 

COMMON  WFMAAW,WFMASW,WFMPLT»WFMURG,WFTAAW,WFTASW,WFTPLT,WFTURG 
COMMON  VRlNDQ(5),WTFCB0,WVSIZfWFPPA$(2,5),WFTFL(5) 

COMMON  XAEW, XAE WL0(5 )>  XA5W, XASWLQ (5 ) , XATTCK, XE AAW, XEASWA, XEASWN 
COMMON  XFGHTR,XPLAT, XURGS, XIA(5 ) ,XIE  (5  ),XNRAB 
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COMMON  ZLAMPF  >  ZMPCAP,ZMPDLI#ZMPATT<  3) ,ZMPESC, ZMPSTG 
C* 

C*  COMOECK  COMCTF 

COMMON  / CGMC  TF  /  X E F FC M , F GHT R I , A TTC K I , X C A P S T 
C* 

C*  COMOECK  COMGA 

C  QMMON / C  OMG A /  NTPSLA,BMR(2,3),ESC<2) 

C* 

C* 

C*  COMOECK  COMIGO 

COMMON/COMIGO/  I  GO 
C* 

C* 

C*  COMOECK  COMSOR 

CQMMQN/COMSQR/  FTSORU, ATSORU 
C* 

C  * 

C*  COMDECK  COMQUT 

COMMON /COM OUT/  CVPPAS,CWTPTF,PPS0RT,NTPSIM,LTASKF(90) 

C* 

c* 

PRINT  1 

1  FORMAT (24H0START  PROGRAM  MEDMOO 
C* 

C*  RECORD  INITIAL  (INPUT)  VALUES  OF  SELECTED  RESOURCES 
C  AND  INITIALIZE  SELECTED  PARAMETERS 

C* 

FGHTRI  *  XFGHTR 
ATTCKI  *  XATTCK 
ATSORU  =  0. 

FTSORU  =  0. 

CWTPTF  «  0. 

CWPPAS  *  0. 

XEFFCM  =  1. 

XCAPST  =  0. 

NTPSLA  «  0 
NTPSIM  «  0 
PPSORT  =  0. 

LOCTF  =  LTFMP(l) 

C* 

CALL  PRTSUM (LOCTF, -1 ) 

C* 

C*  DDAY  MODELS  THE  DDAY  SHOOTOUT 

C* 

X  F ( LOC  T  F  .GT.  0)  CALL  DD AY ( LOCTF ) 

C* 

CALL  PR  T  SUM ( L  GC  TE , 0 ) 

C* 

IF(XEFFCM, LE.O. )  GO  TO  3000 
C* 

DO  2000  I T  P  *1 , M AX T P 
C* 

PRINT  9 

9  FORMAT ( 120H0 - 

1 - ) 

PRINT  9 
PRINT  10,  ITP 
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10  FORMAT( 16H0START  OF  PERIOD, 15) 

C* 

I F ( IGO.FQ. ITP)  CALL  T I  ME T ( I  TP  ) 

C* 

PRINT  11,  LOCTF 

11  FOR  MAT ( 3H0  LOCTF*, 12  ) 

LTASKFUTP)  *  LOCTF 

C* 

I F ( LOCTF • E Q • 0  )  GO  TO  1000 
C* 

C*  GNAATK  GENERATES  AIR  ATTACKS  ON  THE  TASK  FORCE 

C* 

CALL  GNAATK(LOCTF,ITP) 

C* 

C*  PL  8  A3  MODELS  THE  ATTEMPT  BY  THE  RED  AIR  ATTACK  TO  PENETRATE  THE 
C*  BLUE  LAND-BASED  AIR  BARRIER 
C* 

CALL  PLBAB(LOCTF) 

C* 

C*  SUBSUB  MODELS  BLUE  SUBMARINES  IN  DIRECT  SUPPORT  OF  THE  TASK  FORCE 

C*  VERSUS  RED  SUBMARINES  AND  RED  SURFACE  SHIPS  IN  THE  SAME  LOCATION 

C* 

CALL  SUBSUB(LOCTF) 

C* 

C*  C  T  F  MOD  EXERCISES  THE  CTF  MODEL  BASED  ON  IDA  REPORT  R-245 

C* 

CALL  CT  F  MOD ( LOC  TF ) 

C* 

C*  SHPSHP  MODELS  SURFACE  SHIP  VS  SURFACE  SHIP  WARFARE 
C* 

CALL  SHPSHP(LOCTF, ITP) 

C* 

C*  POWERP  CALCULATES  POWER  PROJECTION  RESULTS 
C* 

CALL  POWERP(LOCTF, ITP) 

C* 

1000  CONTINUE 
C  + 

C*  ADDMOE  DETERMINES  WHETHER  TO  STOP  THE  SIMULATION 
C* 

CALL  ADDMOE ( ITP,ISTOP) 

C* 

IFCISTOP.EQ.l)  GO  TO  1900 
C* 

C  *  MOVTF  MOVES  THE  TASK  FORCE  (IF  APPROPRIATE)  TO  A  NEW  AREA  AND 

C*  ASSESS  ANY  SUB-BARRIER  ATTRITION  TO  THE  TASK  FORCE 
C  * 

CALL  MOVTF (LOCTF, ITP ) 

C* 

C*  MOVRS  MOVES  RED  SURFACE  SHIPS  AND  RED  SUBMARINES  AND  ASSESSES 

C*  ANY  SUB-BARRIER  ATTRITION  TO  THESE  SHIPS  AND  SUBMARINES 

C  * 

CALL  MOVRS(LOCTF, ITP) 

C* 

C*  ABATCK  MODELS  BLUE  AIR  ATTACKS  ON  RED  AIRBASES 
C* 

CALL  ABATCK (LOCTF ) 
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C* 

1900 

C* 

C* 

C* 

1990 

C* 

C* 

2000 

C* 


C* 

3000 

C* 


3010 

3020 

C* 

2 


CONTINUE 

CALL  PRTRES(LOCTF,ITP) 

CALL  PRTSUM(LOCTF,ITP) 

PRINT  1990*  I  TP 
F ORM A T ( 1 4H0END  OF  PERIOD, 15) 

I F ( I S TOP • E Q • 1 )  GO  TO  3000 

CONTINUE 

NTPSIM  «  MAXTP 
GO  TO  3020 

CONTINUE 

N  TP  S I M* I  TP 

NTPSP1  *  NTPSIM  ♦  1 

DO  3010  ITP-NTPSP1, MAXTP 

LTASKF(ITP)  «  LOCTFF ( I TP,LGTHMP, L TFMP, MIMP ) 
CONTINUE 

WRITE (6,2) 

F OR MA T ( 22H0E NO  OF  PROGRAM  MEDMOD  ) 

END 
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C*  DECK  LOCTFF 

FUNCTION  LOCTFF ( ITP>LGTHMP*  LTFMPfMIMP) 
DIMENSION  LGTHMP(MIMP),LTFMP(MIMP ) 

C  * 

C* 

LENGTH  =  0 

00  10  IMP=1,MIMP 

LENGTH  *  LENGTH  +  LGTHMP ( IMP ) 

IF ( ITP.GT.LENGTH)  GO  TO  10 
LOCTF  =  LTFMP(IMP) 

GO  TO  20 
10  CONTINUE 

LOCTF  *  LTFMP(MIMP) 

20  CONTINUE 

LOCTFF  =  LOCTF 
C 

RETURN 

END 
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C*  OECK  A8ATCK 

SUBROUTINE  ABATCK(L) 

C* 

C*  ABATCK  MODELS  BLUE  AIR  ATTACKS  ON  RED  AIRBASES 
C  * 

C*  COMDECK  COMINP 

COMMON  NEPD(l) 

COMMON  AAAEDA<2)»AAAEDE{2),AAAEED(l)>AACA,AAPAJO<2>,AAPDDA(2) 
COMMON  AAPDDE(2),AAPDED(1), AAPKAD(2>2), AAPKDA(2,2> ,AAPKDE<2,1) 
COMMON  AAPKED(1,2>,AASRAA(5),AA$RED,AASRFA<5),AASRFE(5),AASRID 
COMMON  AQANM(2) >  A3  A  VL  S (2) ,  A 8C  A  S  ,  ABESGS (2) ,  A  B  F  AS  S (2) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2),ABPKA(2),ABPSA(2,2),ABPDS(2) 
COMMON  ABPKS<2r2),A8TSC(2),ABVGS$(2)>A8RSAM(2) 

COMMON  AEWD,AESCAB(2),ASWF,ATABT(2,3>,ATTWGT,AVAILE(5,2) 

COMMON  AINTCT,AVAILT(5,2>3),AVALED(5#2),AWRCBB 

COMMON  BACCDW(6),BACPCK<6) , 3 ARE4Q ( 5 > > B ARELQ ( 5 ) # B ARLQ ( 5 ) , BMTMIN ( 5 ) 
COMMON  B  A R  L  TH ( 5 )  ,  B  E  C  D  W {  6  )  >  BEDW ( 10) *  B  S I B A R ( 5  )  , 8SSNDS,BUCAP 
COMMON  CACDWO,CAPMLQ( 5 )  , C  A P MQ ( 5) >CAPMR,CAPSTQ( 5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10) ,CPRPK(10),CPRSCK(6),CSCDW0 
COMMON  DDF  AC ( 10) ,DDPKC ( 10) ,DDPKS ( 10) , DDRKAA ( 10) >DDRKBA ( 10) 

COMMON  DDRSAUO)  f  ODSPACIO)  »DLIAf  D1T<2»3>  *D2T(2»3) 

COMMON  ESLR,ESRQ(5),ENACDT(4),ENACDS(10) 

COMMON  FAACA(5),EFACA(5),FFACE(5),FAC0B(5,2),FHSK(2) 

COMMON  FM3(6 >,FPPL1, F P PI 2 , F S TAG < 5 ) , F S TG AQ < 5) 

COMMON  HRMAAW, HRMASW, HR  MUR G, HR T A AW*  HRTASW, HRTURG 

COMMON  I  A  A  D  A  , I  A  AE  D > IABAF* IABAW# I A8  A E  Q , IATKRT ( 5  )  > I  AT  R I  A  > ICTL ( 5) 

COMMON  ID0AC>IDDAS>IKRAS<5),IPLADA,IPLAED,IRSUBA(5),ISSBR>IS$RB 

COMMON  IPPAF,  IPPAW 

COMMON  LGTHMP(6),LTFMP{6) 

COMMON  MAXTPjMIMP 

COMMON  NABSAM,NKRB,NKRS#NKBDPL,NLOC>NPP$AM 

COMMON  PARK, P A S $  (  2 >  ,  P B DRN < 2 ) , P B DR S < 2) ,PBKRN(2)»PBKRS(2) 

COMMON  PDIN,PKAT1,PK0F1,PKASW,PKIIN,PKIN,PKPLDT(4),PKPL1,PKPL2 
COMMON  PKSST (4),PRSM< 10* 5 j 6) jPRWLNO ( 5) 

COMMON  PLAEDA(2),PLAEDE(2),PLAEED,PLBLBD(2,5),PLCA(5) 

COMMON  PLFDLL( 5, 5,2),PLPAJ0( 3), PLPDDA (2), PLPDDE { 2) ,PLPDED 
COMMON  PLPKAD(3*2)*PLPKDA(2*3)*PLPKDE(2)*PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5),PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAMC2), PPAVSSC2) >  P  P PK A  S (2) >  PPAVLS (2, 5), PPANMS (2) 

COMMON  PPP0SA(2),PPFSVS(2),PPTSCS(2) , PPCAL (5) 

COMMON  PPPDAS(2),PPFASS(2),PPAEGS(2),PPFASM(2) 

COMMON  RACCDW(10),RACPCK(10),RECDW(10),REDW{6),RAR9AB(3) 

COMMON  RS(10,5),RSIBAR<5) 

COMMON  SBFBCF, SBFBCS, SBFRFA( 5), SBFRFC, SBFRSA( 5) >  SBFRSC 
COMMON  SBPBDF , SBPBDS, SBP3KF,5BPBKS,SBPFDB, SBPFKB, SBPSDB, SBPSKB 
COMMON  SMALLR>SSDAAto, SSDASW, SSDURG, STARQ( 5 ), STSALV, SUBSOR, SHEL 
COMMON  SSBACR  (8),SSCFA,SSFRSV(8,  5  ) , $SPBDR,SSPBKRj  SSPRDB,S$PRKB 
COMMON  S5FBAK(2,8),SSPPKC 

COMMON  TA810T(20*4)*TAB12(20)*TAB13T<20*4)*TCAP,THSCAQ<5) 

COMMON  THSCTG(5)*TPAS*  TPS*  T1*T2*  T3*T4 
COMMON  UBAEW*UBAEWL*U8ASW*UBASWL 
COMMON  VBT(3),VCAP,VI 

COMMON  WFMAAW,WFMASW,WFMPL1,WF'MURG,WFTAAW,WFTASW,WFTPLT,WFTURG 
COMMON  WR  L  NO Q ( 5) ,WTFCBO,WVSIZ, WFPPAS(2,5) , WFTFL ( 5) 

COMMON  XAEW»XAEWLQ(5 ) , XA$W*XASVILQ(5)* XATTCK, XEAAW,XEASWA,XEASWN 
COMMON  XFGHTR,XPLAT,XURGS,XIA(5),XIE(5),XNRAB 
COMMON  ZLAMPF,ZMPCAP, ZMPDL I , ZMP A TT ( 3 ) * ZMPESC* ZMPSTG 
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C*  COMDECK  COMCTF 

COMMON  /COMCTF/  XE F F C M# F GHT R I # A T T C K I # X C A  PS T 

C* 

C*  COMDECK  COMGA 

COM MON /CO MG A/  NTPSLA#BMR(2#3)#ESC(2) 

C* 

C*  COMOECK  COMSOR 

COMMON/COMSOR/  FTSORU*  AT  SORU 
C* 

C* 

REAL  ID#  IDK 

DIMENSION  SA(2)»SD(2)*SFE(2)#SAA(2)#SAH(2)#$AK(2)#SDA(2)#SDH(2)> 
1SDK(2)#SEA(2)#SEH(2),SEK(2) 

DIMENSION  PKVED(2)#PKVDE(2)#PKVDA(4)#PKVAD(4)#VP$A(4)#VPKS(4) 
DIMENSION  RSAMK(2 ) >  S  A  L ( 2 ) #  A  B A  TKR ( 2 ) 

DIMENSION  A  (  5  ) #  AOB (5) #  A  OB  S (5)#AOBN(5)#AOBSK(5)#AOBNK(5) #  AN  E W ( 5  ) 

C 

WRITE(6#1) 

WRITE ( 6  #  501) 

1  F  OR  M  A  T  (  5  - - - 

501  FORMAT ( 2 4H  START  SUBROUTINE  ABATCK) 

WR ITE (6*  502  )  L 

502  FORMAT ( 28H  TASK  FORCE  IS  NOW  IN  REGION  #13) 

C 

FTSORU-O. 

A  T  S  ORU  s  0 • 

C 

IF(L.EQ.O)  GO  TO  98 
C 

BMRT  *  0. 

VRAT  *  0. 

DO  7  KR B *  1  *  NKRB 

BMRT  *  BMRT  ♦  AT  ABT ( 1#  KR9 )  ♦  ATABT (  2  #  K  R  B  ) 

VRAT  *  VRAT  +  ATABT ( 1 #  KR  B  ) 

7  CONTINUE 

VRAT  *  VRAT  +  AESCAB<1) 

RACT  *  BMRT  +  AESCAB(l)  +  AESCAB(2> 

IF (R ARB AB ( 1 ) . GE . BMRT)  GO  TO  95 
IF(RARBAB(2) .GE.RACT)  GO  TO  95 
IF ( RARBAB ( 3 ) .GE .VRAT )  GO  TO  95 
C 

C  BLUE  AIRCRAFT  FROM  CARRIER 
C 

AA=AMtNl(XATTCK,ATTCKl*XEFFCM)*FAACA(L) 

F1-AMINHXFGHTR#FGHTRI*XEFFCM) 

F13AMAX1 (0. 9  FI— BUCAP  +  XCAPST ) 

F A*F l^FFACA (L ) 

FE=F1*FFACE<L) 

SFE(1)*FE+AASRFE(L) 

SA {  1  )  *  A  A  *A  AS  R  A  A  (  L  ) 

SA  (  2  )  *F  A$AASRF A ( L ) 

IATTCK=1 

IF(SA(1)+SA(2).LT.XIA(L))  I ATTCK-0 
IF  (  SFE (1)  .  LT , XIE ( L )  .AND,  IATTCK.GE.l)  IATTCK*-1 
IF (  IATTCK.GE . 1 )  GO  TO  5 
S  A ( 1 ) =0 . 

S  A  (  2  )  s  0 . 
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S  FE ( 1 )  =0 • 

5  CONTINUE 

A  SR  A A  =  A  MA  X  1  ( 1 . , AASRAA  (  L  )  > 

A$RFA*AMAXl(l.,AASRFA(l  )  ) 

ASRFE-AKAX1(1.,AASRFE(L)) 
FT$0RU=PFFCNF*(SA(2)/ASRFA+SFE(1)/ASRFE) 
ATS0RU«PAFCNF*SA(1)/ASRAA 
IF(IATTCK)  97,96,6 

6  CONTINUE 
C 

C  RED  DEFENDERS 
C 

IF (NTPSLA  .GT.  0  .AND.  NTPSLA  .LT.  IATKRT(L))  GO  TO  4 
I  A  T  F  =  1 
GO  TO  3 
4  I  A  T  F  =  2 

3  FESCAD*AVAL6D(L, IATF) 

EO-AESCAB (  1  ) *  FE  SC  AD 
I D  =  A I NTC  T 
SO ( 1  )  =E  D* A ASRED 
SD(2)«ID*AASRID 
C 

C  AIR-TO-AIR  INTERACTION — BLUE  ATTACKERS,  RED  DEFENDERS 
C 


c 


c 


WRITE(6,505) 

505  F0RMAT(54H  NOTE — AIRAIR  AND  ATRTSS  DEAL  WITH  NUMBERS  OF  SORTIES.) 
CONVERT  KILL  PROBABILITY  MATRICES  TO  VECTORS 
I KE  *  1 

DO  10  I KD  =  1 , 2 
IAD0*(IKD-1)+IKE 
PKVEDUADD  )»AAPKED(IKE,  IKD) 

PKVDE( IKD) * AA  PKDE ( IKD, IKE ) 

10  CONTINUE 

DO  11  I K A  =  1 , 2 

DO  11  I K  D  *  1 , 2 

I  ADD- ( IKD-1 ) *  2  +  I K A 

PKVAD ( IADD ) -AAPKAD( IKA,  IKD) 

IADD- ( IK  A- 1 )♦ 2+ IKD 

PKVDA ( IADD ) =AAPKOA< IKD,  IKA) 

11  CONTINUE 

CALL  AIRAIR ($FE,SD,SA,AAPDED,AAPDDE,AAPDQA,PKVED,PKVDE, PKVDA, 
1PKVAD,AAPAJ0,AAAEED,AAAEDE,AAAEDA,AACA,1,2,2, IAAED,  I  A AD  A , 
2SEA,SEK, SEH, SDA,SDK,SDH,SAA,SAK,SAH) 

SAA  WILL  ENTER  THE  SAM  ROUTINE 
AAK-SAM 1) /ASRAA 
FAK=SAK(2)/ASRFA 
F  E  K  *  S  E  K  (  D/ASRFE 

FTSORU  -  FTSORU  -  PFFCNFMFAK  +  FEK) 

ATSORU  *  ATSORU  -  PAFCNF*AAK 
E  DK  =  SDK ( 1 ) / A  MAX  1 ( 1 . , A AS  RED) 

IDK-SDK(2)/AMAX1(1.,AASRID) 

WRITE  <  6,  526  ) 

WRITE(6,527) 

WRITE (6, 529)  AA,FA,FE,ED,ID 

WRITE  (6,525)  SA(l),SA(2),SFE(l).SD<l),SD(2) 

WRITE (6,  52  9)  AAK,FAK,FEK,EDK,  IDK 
525  FORMAT (2  7H  SORTIES  (AIRCRAFT  FLYING)  , 5 ( 6 X, F 10 . 3  )  ) 
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526  FORMAT ( 1H  ,33X,73HBLUE  ATT-  BLUE  FIGHTER  BLUE  FIGHTER  R 

1ED  ESCORT  RED  INTCPTR  ) 

527  FOR  M A  T ( 1H  ,30X,76HACK  AIRCRAFT  A/C  ON  ATTACK  A/C  ON  ESCORT  A/ 
1C  ON  DEFENSE  A/C  ON  DEFENSE  ) 

52P  FORMAT!  1H  j16HINITIAL  AIRCRAFT  ,  1 0 X  ,  5 < 6 X  ,  F 1 0 . 3 >  > 

529  F  OR  M A  T ( 2  7H  AIRCRAFT  KILLED  AIR-TO-AIR  , 5 ( 6 X , F 1 0 . 3 )  ) 

C 

C  BLUE  ATTACKERS/RED  SAMS  INTERACTION 
C 

C  CONVERT  MATRICES  TO  VECTORS  FOR  APPROPRIATE  ATRTSS  INPUTS 
DO  20  KB  AC  *  1^  2 
DO  20  KSAM=1,NABSAM 
I  N  D  1  * (KBAC-1 )*NABSAM  +  KSAM 
I  NO  2  = (KSAM-1 )*2  +  KBAC 
VPKS(IND1)*ABPKS(KSAM,KBAC) 

VPSA( IND2) *ABP$A(KBAC,KSAM ) 

20  CONTINUE 

CALL  ATRTSS (ABRSAMjA3VGSS,SAA,ABPDA,VPSA>  ABPKA>ABAVLS,ABANM>  A  B  P  D  S, 
1VPKS,ABFASS,A9CAS,NABSAM,2,ABESG$,ABFSM,ABFVS,ABTSC,IABAF,TABAW, 
2SEA,SEH,RSAMK,A9ATKR,SAH,SAL) 

IF(AASRAA(L)  • L E •  1.)  GO  TO  23 
IF(SALCl)  .LE.  0.)  GO  TO  22 

AAL  =  (1.-U.-SAL(1)/SAA(1))**AASRAA(L))*SAA(1)/AASRAA(L) 

GO  TO  25 

22  A  A  L  *0  . 

GO  TO  25 

23  A A L  * S AL ( 1  ) 

25  IFCAASRFA(L)  .LE.  I,)  GO  TO  28 
IF ( SAL ( 2  )  • L  E •  0.)  GO  TO  27 

FAl«(l.-U.-SAL<2)/SAA<2)  >**AASRFA(L)  )*$AA(2>  /AASRFA(L) 

GO  TO  30 
27  F  A L  =0 • 

GO  TO  30 

29  F  AL  *S  AL ( 2  ) 

30  CONTINUE 

FTSORU  =  FTSORU  -  PFFCNF*FAL 
ATSORU  =  ATSORU  -  PAFCNF+AAL 
WRITE(6,530)  AALjFAL 
WRITE(6*531  )  AB A  TKR (  1  }  ,  ABATKR  (2  ) 

530  FORMAT! 3  3H0BLUE  AIRCRAFT  LOST  TO  RED  S AMS  —  , F 10 . 3 , 1 7H  ATTACK  AIRCR 
1 AF T , t F10 . 3 9 1 8H  FIGHTER  AIRCRAFT.  ) 

531  FORMAT (4 8H  BLUE  SORTIES  ATTACKING  VULNERABLE  RED  AIRBASE — ,F10.3, 
120H  BY  ATTACK  AIRCRAFT, ,F10.3#21H  BY  FIGHTER  AIRCRAFT.  ) 

C  UPDATE  RED  SAM  AND  BLUE  AIRCRAFT  INVENTORIES 
C 

DO  40  KS AM* 1, NAB  SAM 
ABRSAM(KSAM)*ABRSAM(KSAM)-RSAMK(KSAM) 

40  CONTINUE 

XATTCK=XATTCK-AAK-AAL 

XFGHTR=XFGHTR-FAK-FAL-FEK 

XATTCK*AMAX1(XATTCK,0.) 

XFGHTR*AMAX1(XFGHTR,0.  ) 

C 

C  RED  AIRCRAFT  ON  BASE — PRIORITY  SHELTERING  IS  USED 
C 

NKRA*NKPB+2 
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N  KR  AMI  =  NKR  A-l 
DO  60  KRA*1,NKRB 
A (KRA  )*ATABT ( If KRA ) 

60  CONTINUE 

A(NKRAM1)=AESCA8(1)-EDK 
A ( NKRA) = AINTC T-IDK 
S  HE  L  A  *S  H t  L 
TAOB S  *0  . 

T AOBN  =  0  . 

DO  61  KRA* 1 >  NKR A 

A  OB  (KRA)  *  A  (KRA  )*FACOB(KRA>  IATF) 

AOBS (KRA )=AMIN1(A08 (KRA )*IKRAS(KRA ) > SHELA) 

AUBN(KRA)=A03 (KRA)-AOBS (KRA) 

AOBSK (KRA) =0. 

A03NK (KR A ) *0* 

TA03S«TA0BS+A0BS(KRA ) 

TAOBN=TAOBN+AOBN (KRA ) 

SHtLA=AMAXl (0. >SHELA-IKRAS(KRA)*A(KRA) ) 

61  CONTINUE 
TA0BS1*TAQ8S/XNRA8 
TA0BN1*TA0BN/XNRA3 
SHEL1=SHEL/XNRAB 
ABATKR(1)*ABATKR(1)/XNRAB 
ABATKR (2 ) “ABATKR ( 2) /XNRAB 
S  HE  LK  =  0 • 

IF (ABATKR( 1)+ABATKR(2)  .LE.  0.)  GO  TO  66 

CALL  ATRTAB(ABATKR,SHEL1,TA08S1,TA0BN1,PARK,PBDRS,PBDRN,FHSK, 
1PBKRS,PBKRN,PAS$, Z> I AB A E Q , SHEL K , ASK, ANK ) 

A5K*ASK*XNRA3 

ANK  =  ANK*  XNR  AB 

$HELK=SHELK*XNRAB 

I F ( T  A  OB  S  .LE.  0.  )  GO  TO  64 

DO  63  KRA*1,NKRA 

AOBSK (KRA ) *A$K*AOBS (KRA ) /TAOBS 

63  CONTINUE 

64  IF ( TAOBN  . LE .  0. )  GO  TO  66 
DO  65  KRA«1,NKRA 

AOBNK  (KRA  ) «ANK*AOBN(  KRA)  /  TAOBN 

65  CONTINUE 

66  3HELR=SHEL-SHELK 
DO  67  KR  A  *  1  *  NKR  A 

ANEW(KRA ) =  A (KRA)-AOBSK (KRA ) - A  OB  NK (KRA  ) 

67  CONTINUE 

DG  68  KR  A* 1 > NKRB 
A  TABT ( 1, KR A  )  = ANE  W ( KP  A  ) 

63  CONTINUE 

AESCAB( 1 )*ANEW(NKRAM1 ) 

AINTCT*ANEW(NKRA) 

C 

C  PRINT  OUT  AIRCRAFT  DESTROYED  ON  GROUND 
C 

IF (NKRB  .GE.  2)  GO  TO  69 
WP ITE <b>  569  ) 

GO  TO  70 

69  WRITE  ( 6 ,  569  ) 

70  WRITE(6,570) 

IHUL A  *3HB0M 
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I HOLB  =  3HBE  R 

WRITF (6, 571 )  ( IHOLA, I  HO  LB,  I,  1*1, NKR3  ) 

GO  TO  (72, 73,74, 75,76, 77, 73 ), NKR AMI 

72  WRITE  (6,  572  ) 

GO  TO  80 

73  WRITE (6, 573) 

GO  TO  80 

74  WRITE  (5,574) 

GO  TO  80 

75  WRITE (6, 575) 

GO  TO  80 

76  WR I TE ( 6  >  57  6  ) 

GO  TO  30 

77  WRITE  (6,577) 

GO  TO  00 
WRITE  (6,578  ) 

CONTINUE 

FORMAT ( 1H0, 47X,20HKIND  OF  RED  AIRCRAFT  ) 
FORMAT ( 1H0,45X,39HK  I  N  D  OF  RED 
FGRMAT(18H  QUANTITY  , 17X, 6HSYM  BGL 


78 

30 

568 

569 

570 

571 

572 


I  R  C  R  A  F  T 


FORMAT( 1H+, 4 OX, 6<  3X, 2 A  3, II )  ) 


F  OR  M A  T ( 1 H+  , 

573  F0RMAT(1H+, 

574  FORMAT ( 1H+ , 

575  FORMAT ( 1H+, 

576  F0RMAT11H+, 

577  F  ORM A  T ( 1 H+ , 


40  X , 20H 

5  OX , 20H 

6  OX , 20H 
70  X ,  20H 
BOX, 20H 
90  X , 20H 


578 


531 
582 
5  83 
564 

585 

586 

587 
5  38 


F0RMATC1H+, 100X,20H 
WRITE  (6,581)  ( 

WRITE(6,582) 
WRITE(6,583) 

WRITE (6,584 ) 

WRITE (6, 585) 
WRITE(6,586) 

WRITE (6, 587) 

WRITE  (6,588  ) 

FORMAT ( 4 1H 
FORMAT ( 41H 
F  OR  M  A  T ( 4 1 H 
FORMAT ( 41H 
FORMAT( 41H 


INTCPTR 

INTCPTR 

INTCPTR 

INTCPTR 

INTCPTR 

INTCPTR 

INTCPTR 


ESCORT 
ESCORT 
ESCORT 
ESCORT 
ESCORT 
ESCORT 
ESCORT 

A ( K ) , K*i »  NKR A ) 

(  AOB ( K ) > K*l, NKRA ) 

(  AOBS(K),K*lf  NKR A ) 

( AOBSK (K  ),K*1,NKRA  ) 

(  AOBN (K  ),K*1,NKRA) 
(AQBNK(K),K*1,NKRA) 

(  ANEW(K  ),K*1,NKRA  ) 

SHEl, SHELK, SHELR 
INITIAL  NUMBER  OF  AIRCRAFT 
AIRCRAFT  ON  BASE 
SHELTERED  AIRCRAFT 
SHELTERED  AIRCRAFT  KILLED 
NON-SHELTERED  AIRCRAFT 
F  ORMAT ( 4 1H  NON-SHELTERED  AIRCRAFT  KILLED 
F  OR  MAT ( 4 1H  RESULTANT  NUMBER  OF  AIRCRAFT 


A 

AOB 
A  OB  S 
AOBSK 
AOBN 
AOB  NK 
ANEW 


F OR  MAT ( 1H0, 1 OH SHELTERS  —  ,F8.2,15H  INITIALLY  LESS,F8 


,  8  F  1 0  •  3  ) 

,  8 F  1 0*  3  ) 

,  8F10.3 ) 

, 8F 1 0 • 3  ) 

,  8  F  1 0  •  3  ) 

,  8  F  1 0  •  3  ) 

,  8  F  1 0  •  3  ) 

.  2 , 17H  DESTROYE 


ID  YIELDS, F8. 2,  UH  SURVIVING.  ) 

$H  E  L  *  SHE  LR 

PRINT  589,  FTSORU,ATSORU 
589  FORMAT ( 9H  FTSORU* , F 10. 4, 9H  ATSORU* , F 10 . 4 ) 

GO  TO  99 

95  WRITE (6,  595  ) 

595  FORMAT ( 5  8H  INSUFFICIENT  RED  AIRCRAFT  TO  MERIT  A  BLUE  AIRBASE  ATTAC 
IK  .  ) 

GO  TO  99 

96  WRITE (6, 596) 

596  FORMA  T ( 54H  INSUFFICIENT  BLUE  ATTACK  AIRCRAFT-NO  AIRBASE  ATTACK.) 
GO  TO  99 

97  WRITE  (6,597) 
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597  F  OR  MA  T  (  5  4H  INSUFFICIENT  BLUE  ESCORT  AIRCRAFT — NO  AIR8ASE  ATTACK#  ) 
GO  TO  99 

96  WRITE <6>598) 

598  F  OR  M  A  T  (  4  7H  TASK  FORCE  IS  IN  REGION  0.  NO  AIRBASE  ATTACK.) 

99  WRITE ( 6 *  599  ) 

WRITE (6,2) 

599  F0RMATI25H  END  OF  SUBROUTINE  ABATCK) 

2  F  OR  MA  - - - - - - 

RETURN 

END 
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C*  DECK  ADDMOE 

SUBROUTINE  AODMOE (  I  T P,  I  S TOP  ) 

C* 

C*  A  DDMOE  ADDS  UP  MOES  AND  DETERMINES  WHETHER  TO  STOP  THE  SIMULATION 
C* 

C*  COMDECK  COM  IN  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE(2),AAAEED(l),AACA,AAPAJO(2),AAPDDA(2) 
COMMON  AAPODE  (2  )  ,  AAPDEDT 1) , AAPKAD (2,2  ), AAPKDAT2, 2) »AAPKDE (2, 1 ) 
COMMON  AAPKED(1»2)»AASRAA(5),AA3RED,AASRFA(5),AASRFE<5),AASRID 
COMMON  ABANM(2),ABAVLS(2),ABCAS,ABESGS(2),ABFASS(2) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2)>A3PKA<2),ABPSA<2,2),ABPDS<2) 
COMMON  ABPKS<2»2),ABTSC(2)>ABVGSS<2)>ABRSAM<2) 

COMMON  AEWD,AESCAB(2),ASWF,ATABT(2,3),ATTWGT,AVAILE<5,2) 

COMMON  AINTCT,AVAILTC5,2,3),AVALED<5,2),AWRC9B 

COMMON  BACCDW(6),BACPCK(6),BAREAQ(5)»BARELQ(5),BARLQ(5),BMTMIN(5) 
COMMON  BARLTH(5),BECDW(6),BEDW(10)>BSI8AR(5)>BSSNDS,BUCAP 
C DM MON  CACDWO,CAPMLQ(5),CAPMQ(5),CAPMR,CAPSTQ<5) 

COMMON  CPAGV,CPBPK(6)»CPBSCK(10),CPRPK<10),CPRSCK(6),CSCDW0 
COMMON  DDFAC(10),DDPKC(10),DDPK3(10),DDRKAA(10),DDRKBA(10) 

COMMON  DDRSA(10),DDSPA(10),DLIA,D1T(2,3),D2T(2,3) 

COMMON  ESLR,ESRO(5),ENACDT(4),ENACDSUO) 

COMMON  FAACA(5),FFACA(5),FFACE<5),FACOB(5,2),FHSK<2) 

COMMON  FM3(6),FPPL1,FPPL2*FSTA0(5),FSTGAQ(5) 

COMMON  HRMAAW»HRMASW*HRMURG,HRTAAW»HRTASW,HRTURG 
COMMON  IAADA,IAAED,IABAF,IABAW,IABAEO,IATKRT(5),IATRIA,ICTL(5) 
COMMON  IDDAC,IDDAS» IKRAS(5) »IPLADA> I  PL  AED , IRSUBAt  5) > I S  S  8R> ISSRB 
COMMON  IPPAF/IPPAW 
COMMON  LGTHMP(6),LTFMP(6) 

COMMON  MAXTP,MIMP 

COMMON  NABSAM,NKRB,NKRS>NKBDPL»NLOC»NPP$AM 

COMMON  PARK>PASS(2)>PBDRN(2)>PB0RS(2)>P8KRN(2)»PBKRS(2) 

COMMON  PDIN,PKAT1,PK0F1,PKASW,PKIIN,PKIN,PKPLDT(4),PKPL1,PKPL2 
COMMON  PKSST(4),PRSM(10,5,6),PRWLN0(5> 

COMMON  PLAEDA(2),PLAEDE(2),PLAEED,PLBLBO(2>5),PLCA<5) 

COMMON  PLFDLL(5f5»2),PLPAJO(3)>PLPODA(2)»PLPDDE(2)>PLPOED 
COMMON  PLPKAD(3,2),PLPKDA(2»3),PLPKDE(2),PLPKED<2) 

COMMON  PAFCNF,PFFCNF,PPSORR(2,5),PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAM<2),PPAVSS<2),PPPK4S(2),PPAVLS(2,5)>PPANMS<2) 

COMMON  PPPDSA(2),PPFSVS(2),PPTSCS(2)»PPCAL(5) 

COMMON  PPPDAS(2),PPFASS(2)»PPAEGS(2),PPFASM(2) 

COMMON  RACCDW(10),RACPCK(10),RECDW(10),REDW(6)>RARBAB(3) 

COMMON  RS ( 10,5  ),RSIBAR <5  ) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),SBFRFC,SBFRSA(5),SBFRSC 
COMMON  SBPBDF,SEPBDS,SBP8KF,SBP9KS,SBPFD3,SBPFKB,SBPSDB,SBPSKB 
COMMON  SMALLR,SSDAAn,SSDASW,SSDURG,STARQ(5),STSALV,SU8SOR,SHEL 
COMMON  SSBACR(3),SSCFA,SSFRSV(8,5),SSPBDR,SSPBKR,SSPRDB,SSPRKB 
COMMON  SSFBAK(2,3 ),SSPRKC 

COMMON  TA810T(20,4)»TABI2(20),TAB13T(20,4)»TCAP,THSCAQ(5) 

COMMON  THSCT0(5),TPAS,TPS, T1,T2, T3,T4 
COMMON  UBAEW,UBAEWL,UBASW,UBASWL 
COMMON  VBT(3),VCAP,VI 

COMMON  WFMAAW,WFMASW,WFMPLT,WFM'JRG,WFTAAW,WFTASW,WFTPLT,WFTURG 
COMMON  URLND0(5),wTFCB0,wVSIZ, *FPPAS(2,5),WFTFL( 5) 

COMMON  XAEW,XAEWLQ(5)»XASW,XASWLQ(5),XATTCK,XEAAW>XEASWA>XEASWN 
COMMON  XFGHTR,XPLAT,XURGS,XIA(5),XIE(5),XNRAB 
COMMON  ZLAMPF,ZMPCAP,ZMPDLI»ZMPATT(3)»ZMPESC»ZMPSTG 
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C* 

C*  COMDECK  COMCTF 

COMMON  /COMCTF/  X E F F C M , F GHT R I , A T TCK I , XC A P S T 
C* 

c* 

C*  COMDFCK  COMOUT 

COMMON/COMOUT/  CWPPAS,CWTPTF,PPS0RT,NTPSIM,LTA$KF(90) 

C* 

WRITE <6, 1) 

WRITE (6,  501) 

1  F0RMAT(51H0 - 

501  F  OR  M  A  T ( 2  4H  START  SUBROUTINE  ADDMOE) 

C* 

ISTOP  *  0 

C* 

I  F  <  XP  LAT  .GT.  0,  .AND.  XEFFCM  .IT.  .00005)  IST0P*1 
XSHIP  =  XPLAT  ♦  XEAAW  +  XEASWA  +  XEASWN  ♦  XURGS 
IF (XSHIP.LE.O. )  I S  T  0  P  =  1 
IF<  ISTOP. JEQ.l)  NTPSIM  -  ITP 
C* 

PRINT  510,  XPLAT, XEFFCM, XSH I P , I S T 0 P , I T P 
510  F  OR  M A  T ( 0H  X P l AT  *  , F 1 0 . 4, 8H  X E FFC M* , F 10 . 4 , 9H  X S HI P = , F 10 . 4 , 0H 
1P*,I2,8H  ITP*, 14) 

C* 

W  R  I  T  E ( 6 ,  599) 

WRITE  (6,2  ) 

599  FORMA  T( 2  5H  END  OF  SUBROUTINE  ADDMOE) 

2  FORMAT ( 5 1H  - 

C 

C* 

RETURN 

END 


ISTO 


) 
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C*  DECK  AIRAIR 

SUBROUTINE  A  I  R A  I R  (  E , D , A , PD E D , P D DE , P DD A , PKE D , P KD E , PK D A , PK AD  ,  P A J 0, 
X  AEED,AEDE,AEDA,CA,NKE,NKD,NKA,IAFED,IAFDA,EA,EK,EH,DA,DK,DH, 

X  A  A , AK , AH  ) 

C  * 

C*  AIRAIR  COMPUTES  AIR-TO-AIR  ATTRITION  FOR  ESCORTS  VS  DEFENDERS 
C*  AND  THEN  FOR  DEFENDERS  VS  ATTACKERS 

C* 

DIMENSION  E(NKE) , D (NKD ) , A ( NKA ) , PDED ( NKE ) , PDDE ( NKD  ) , PDD A ( NKD  )  , 

X  P KE D ( 2 ), PKDE (2), PKDA(6) , PKAO( 6)  , 

X  PAJ0(NKA),AEED(NKE),AEDE(NKD),AEDA(NKD),EA<NKE),6K{NKE), 

X  EH(NKE ),QA(NKD),DK(NKD) , DH ( NK D  ) , A  A ( NK A  ) , AK ( NK  A  ) , AH ( N  K A  ) 
DIMENSION  DA1(2),DA2(2),DH1 ( 2 ) , DH2 ( 2 ) , OKI ( 2  ) , D K2 ( 2 ) 

C* 

WRITE (6, 1) 

WRITE ( 6  ,  201) 

1  FORMAT ( 26H - ) 

201  FORMAT ( 24H  START  SUBROUTINE  AIRAIR) 

C* 

CALL  ATRTED(E,D,PDED, PDDE,  PKED ,  PKDE, CA, NKE, NKD, AEED,AEDE,AEDA, 
X  EA,EK,EH,DA1,DK1,DH1, IAFED  ) 

CALL  ATRTDA (DAI, A, PDDA,  PKOA,  PK A D , P A J 0, AE DA, C A, NK A, NKD, D A2 , DK2, 
X  DH2,AA, AK,AH,IAFDA) 

DO  90  IKD= 1, NKD 
DA(IKD)*DA2(IKD) 

DK(IKD)SDK1( IKD)+0K2(IKD) 

DH(  IKD) =DH1 { IKD  J  +  DH2 ( IKD) 

90  CONTINUE 
C  * 


DO  110  1*1, NKE 
PRINT  210,  I, E(I) 

PRINT  211,  I,EA(I),I,EK(I),I,EH(I) 
110  CONTINUE 

DO  120  1*1, NKD 
PRINT  220,  I , D (  I  ) 


PRINT  221, 

I,DA1(I),I, 

DK1 ( I ) 

fitOHim 

PRINT  222, 

I,DA2(I),I, 

DK 2 (  I  ) 

,  I  , DH2 { I ) 

PRINT  223, 

I,  D  A  (  I  )  ,  I, 

DK(  I  ) 

,1,  1 

D  H  (  I  ) 

120 

CONTINUE 

DO  130  1*1, 

NKA 

PRINT  230, 

I, A<  I  ) 

PRINT  231, 

I,  AA  ( I  ),I, 

AK  (  I  ) 

,1, 

AH  {  I  ) 

130 

CONTINUE 

WRITE (6,  299) 

WRITE (6,2) 

210 

F  OR  M  A  T ( 6H 

E ( , 11, 2H) 

*  ,  F  1 0  • 

4) 

211 

FOR  M  AT ( 6H 

E  A  (  ,  1 1 , 2H  ) 

* , F 10* 

O' 

X 

EK  ( , 

11, 

X  2  H  )  a  , F10.4  ) 

220 

FORM A  T { 6H 

D< ,  11, 2H) 

■  ,  F  1 0  • 

4) 

221 

F  OR  MA  T ( 6H 

DAI  (,  11, 2H  ) 

*  ,  F  1 0  • 

4 , 6H 

DK  1  (  , 

11, 

X 2H ) * , F10  •  4  ) 

222 

FORMAT ( 6H 

0  A  2 ( ,  11, 2H) 

=, F10. 

4,6H 

DK  2  (  , 

11, 

X2H) * , F 1 0 . 4  ) 

223 

FORMAKbH 

D  A ( ,  11, 2H) 

* , F 10  • 

4 , 6H 

DK  (  , 

11, 

X2H)=,F10*4) 

230 

FORMAT ( 6H 

A  {  ,  11, 2H) 

* , F 10 • 

4) 

231 

FORMAT ( 6H 

A  A ( ,  1 1 , ?H  ) 

*  ,  F  1 0  • 

4 , 6  H 

AK  (  , 

11, 

2H ) * , F 10* 4,6H 

E  H ( ,11, 

2H) *, F10.4 ,6H 

DH 1 { ,  11, 

2H)=,F10.4,6H 

DH2 { ,  11, 

2H) *,F10*4,6H 

DH ( ,  11, 

2 H  ) -,F10.4,6H 

AH ( , I 1  , 

X2H)*,F10.4) 

299  F  OR  M A  T { 2  5H  END  OF  SUBROUTINE  AIRAIR) 

2  F  OR  M  A  T  (  2  6H - ) 

C 

C* 

RETURN 

END 
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SUBROUTINE  A TR TAB ( A A , S S > A S t AN, P AR K , PD S *  PON t F SK , PK AN , PK AS t T PS , N 1# 

X  IEQ,SSK, ASK, ANK  ) 

DIMENSION  AA(N1),PDS(N1),PDN(N1),FSK<N1>>*KAN<N1),PKAS<N1),TPS(N1) 
GO  T0(100, 200,300), IEQ 

C  COMPUTE  ATTRITION  ASSUMING  SHELTERS  ARE  ATTACKED  ONLY  IF  NO  OPEN 

C  AIRCRAFT  ARE  DETECTED. 

100  A  SK  =  0  • 

A  NK  *  0 • 

S  S  K  3  0  • 

IF  (  SS  .EQ.O.O)  GO  TO  115 
T  S  S  K  =  1 . 

T  AS  K* 1 • 

DO  110  I  AC  3  1 »  N 1 
TEXP3TPS(IAC)*AA(IAC  ) 

TEMP=1.0-(1.0-PD$( IAC ) ) **SS 
T  E  MP 1  * ( 1.0-P0N( IAC ) )**AN 
TEMP3-AMIN1(PKAS(IAC)/SS,PKAS(IAC>) 

TEMP2«(1.0-TEMP3*TEMP*TEMP1  )**TEXP 
TASK  =  T  ASK*TEMP2 

TEMP33AMIN1(PKAS(IAC)*FSK(IAC)/SS,PKAS(IAC)*FSK(IAC)) 

TEMP2*( 1.0-TEMP 3* TEMP*  TEMPI  )**TEXP 
TSSK«TSSK*TEMP2 
110  CONTINUE 

ASK«AS*{1. O-TASK) 

SSK«SS*(1.0-T$SK) 

115  DEN0M*AMIN1 { P  ARK, AN ) 

IFtDENOM. EQ.O.O)  GO  TO  999 
TANK-1.0 
DO  120  IAC31,N1 
TEXP*TPS(IAC)*AAUAC) 

TEMP-1. 0-( 1.0-PDN ( IAC )  )**AN 

TEMP3  =  AMIN1(PKAN( IAC) /  DENOM, PKAN(  IAC) ) 

TEMP2- ( 1.0-TEMP  3* TEMP )**TEXP 
T  AN  K 3  TANK*  TE MP  2 
120  CONTINUE 

ANK3  A  N* ( 1.0-TANK) 

GO  TO  999 

C  COMPUTE  ATTRITION  ASSUMING  OPTIMAL  ALLOCATION  OF  ATTACKERS  TO 

C  TARGETS  —  COMPUTE  ALLOCATION  OF  ATTACKERS  TO  SHELTERED  AND 

C  NON-SHELTERED  AIRCRAFT. 

200  A  S K  3  0 • 

A  N  K  *  0  . 

S  S  K  3  0  . 

DEN0M3AMIN1 ( PARK, AN  ) 

IF(DENOM. EQ.O.O. AND. SS . EQ.O.O)  GO  TO  999 
F  A  A  A  N  =  1  . 

IF  (  SS  . EQ.O.O )  GO  TO  225 
FAC31 , 

I  F ( DENOM  .LT.  .00005)  GO  TO  215 
TF AC* 1. 

SF  AC  *1 • 

DO  210  I  AC  3 1 , N 1 
TEXP3TP$(IAC)*AA(IAC) 

TEMP=1.0-(1.0-PDN(IAC) )  *  *  AN 

TEMP3  =  AMIN1(PKAN( IAC)  /DENOM  , PKAN (  IAC)  ) 

TEMP2M 1.0-TEKP3*TEMP  )**TEXP 
TFAC=TFAC*TEMP2 
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TEMP*1.0-(1.0-PDS(IAC))**SS 

TEMP3aAMlNl(PKAS(IAC)/S$,PKAS<IAC)) 

TEMP2= ( 1.0-TEMP3*TEMP)**TEXP 
SFAC  *SFAC*TEMP2 
210  CONTINUE 

TEMP* ( AN*TF AC+ALOGCTFAC ) ) / ( AS * A LOG ( SFAC  )  I 
FAAAN*1. 0-AL0G( TEMPI / { A  LOG ( T F AC ) ♦ A LOG < SF AC )  ) 

FAAAN=AMAX1 ( 0  •  0  j  FAAAN ) 

FAAAN*AMIN1( 1.0>FAAAN) 

FAC  s 1 • O-FA A  AN 
C  COMPUTE  ATTRITION 

215  I A  S  K  =  1 • 

T  S  SK  =  1  • 

DO  220  I  AC  *  1 j  N 1 
TEXP*TPS( I  AC  I *AA ( I AC  I *F  AC 
TEMP*1. 0-< 1 .O-PDS ( I  AC ) ) **$S 
TEMP3-AMINKPKAS  (  IAC  )/SS;PKAS  (I  AC  >) 

TEMP2*(1.0-TEMP3*TEMP  >**TEXP 
TA$K  =  T  ASK  +  TEMP2 

TEMP3=AMIN1( PKAS ( IAC )+FSK( IAC )/SS*PKAS(  IAC  )*FSK(  IAC  )  ) 
TEMP2«(1.0-TEMP3*TEMP)**TEXP 
TS$K*TSSK*TEMP2 
220  CONTINUE 

ASK*AS*< l.O-TASK) 

S  S  K  *  S  S  *  { 1.0-TSSK) 

I F ( DE NQM  .LT.  .00005  )  GO  TO  999 
225  T  ANK  =  1 . 0 

00  230  I  AC  =  1  >  N 1 

TEXP*TPS (  I  A  C  )  *  A  A  (  IAC ) $  F  A A  AN 

TEMP*1.0-(  1 . O-PDN ( IAC )  )**AN 

TEMP3  =  AMIN1(PKANUAC)/DEN0M,PKAN(IAC)) 

TEMP2* ( 1.0-TEMP3+TEMP )  *  +  T  E  X  P 
T ANK«TANK*TEMP2 
230  CONTINUE 

ANK*AN* ( 1.0-TANK) 

GO  TO  999 

C  COMPUTE  ATTRITION  ASSUMING  SHELTERS  AND  OPEN  AIRCRAFT  ARE  ON  SAME 

C  PARKING  AREAS. 

300  A  SK  *  0 . 

A  NK  =  0 • 

S  S  K  =  0 • 

TAC -SS+AN 

DEN0M*AMIN1 ( PARK*  TAC  ) 

IF ( TAC . EO .0.0. OR . DENOM. EQ. 0.0)  GO  T0999 

T  AS  Ka  1  • 0 

T  ANK  =  1  •  0 

TSSK«1.0 

DO  310  I AC  *  1*  N1 

TEXP=TPS(IAC)*AA(IAC) 

TEMP*PDN( IAC )*AN+PDS( IAC)*SS 
TEMP l'1.0-< 1.0- <  TEMP /TAC  > )**TAC 
TEMP3-AMIN1 ( PKAS (IAC ) / DENOM  t PKAS (  IAC )  ) 

T E  M  P 2  - ( 1 • 0-TEMP3  +  TEMP1 )  **TEX  P 
T ASK*TASK*TEMP2 

TEMP3*AMIN1(PKAS( IAC  ) *  F  SK  ( I  AC ) / DE  N  OM  >  PKAS(IAC )  *  F  S  K ( IAC)  ) 

TEMP2*<1.0-TEMP3*TEMP1)**TEXP 

TSSK=TSSK*TEMP2 

TE  MP3  =  AMIN1(PKAN(I  AO/DE  NOM,PKAN(  IAC)  ) 

TE  M P 2  = ( 1.0-TEMP3*TEMP1)+*TEXP 
TANK=TANK*TEMP2 
310  CONTINUE 

A  S  K -  A  S* ( 1.0-TASK ) 

SSK*SS* ( 1. O-TSSK ) 

AN  K  a  A  N*( 1. O-TANK  ) 

999  RETURN 
END 
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C*  DECK  ATRTDA 

SUBROUTINE  ATRTDA(D,AT,  PDD,PKD,PKA,  PAJO, 
X  AED>CA>Nl>N2,OA#DK,DH,  AA,AK*AH,IATRTF) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ATRTDA  COMPUTES  ATTRITION  FOR  DEFENDERS  VERSUS  ATTACKERS. 

THE  INPUTS  AREi 

D  =  NUMB  ER  OF  DEFENDERS 
AT-NUMBER  OF  ATTACKERS 

PDD*P ROB  ABILITY  THAT  A  DEFENDER  WILL  DETECT  AN  ATTACKER 
PKD=PROBABILITY  THAT  A  DEFENDER  WILL  KILL  AN 
ATTACKER  IF  ENGAGED 

PK  A  =  PROB  ABILITY  THAT  AN  ATTACKER  WILL  KILL  A 
DEFENDER  IF  ENGAGED 

PA JO*PROBAB IL ITY  THAT  AN  ATTACKER  WHEN  ENGAGED  WILL  JETTI¬ 
SON  ITS  ORDNANCE  AND  RETURN  FIRE 
AED=AVERAGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION 
TO  1.0)  THAT  A  DEFENDER  CAN  POTENTIALLY  MAKE. 

CA-COMBAT  AREAS 

N 1  *  D I  ME  NS  I  ON  FOR  ATTACKER  VARIABLES 
N2  aDI MENS  ION  FOR  DEFENDER  VARIABLES 

OUTPUT  VARIABLES* 

DA*DE  FENDERS  ALIVE 
DK  *0  EF  ENDER  $  KILLED 
DH  *0  E  F  END ER  S  GONE  HOME 
AA*ATT ACKERS  ALIVE 
AK  *ATT  ACKERS  KILLED 
AH=*A  TT  AC  KERS  GONE  HOME 
I  A  TR  TF  * ATTR I T ION  FUNCTION 

IN  THIS  ROUTINE  THE  DEFENDERS  SHOOT  AT  THE  ATTACKERS. 

THE  ATTACKERS  CAN  SHOOT  BACK  WHEN 
THEY  ARE  SHOT  AT. 


C 

C 

C 


C 

C 

c 

c 


DIMENSION  D(N2),AT(N1),PAJ0<N1), 

1  AED(N2),PDD(N2),PKD(N2,N1),PKA(N1,N2) 

DIMENSION  DA(N2),0K(N2),DH(N2),  A  A ( N 1 ) , A K ( N 1 ) , AH ( N 1 ) 

DIMENSION  PKK(6)*FK(3)>DD(2) 

COMPUTE  DD,  THE  NUMBER  OF  POSSIBLE  SHOTS  THE  DEFENDERS  HAVE 
DO  5  KAC=1>N2 

DD( KAC  >*D (KAC  )  *( l.+AEOCKAC )  ) 

5  CONTINUE 

SUM  THE  NUMBER  OF  AIRCRAFT.  IF  THERE  ARE  LESS  THAN  .0001  SKIP 
AROUND  THE  ROUTINE  AND  SET  OUTPUT  VARIABLES  TO  ZERO. 


T  T  *  0  . 

DO  10  IAC  =  1,N1 
TT-IT  +  ATt 1  AC ) 

10  CONTINUE 

IF ( TT.LE . .0001  )G0  TO  70 

C 

C  SET  UP  THE  PROBABILITY  OF  DETECTING  AND  KILLING  AN  ATTACKER 

C  VARIABLES  FOR  BINFAC 
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SUBROUTINE  AT  R  TO  A 


DO  25  KAC*1»N2 
DO  24  I  AC  a 1 #  Nl 
I ADDR  * ( IAC-1)*N2+KAC 
PK K ( I  ADD R  )*PKD(KAC#IAC  ) 

24  CONTINUE 

25  CONTINUE 
TEMPaTT/CA 

CALL  BINFAC(DD#PDD#PKK,TEMP#CA#N2#N1#FK) 

DO  30  IAC*1#N1 

AK t I  AC )  =  AT( I  AC )*< l.-FK( I  AC  )  ) 

30  CONTINUE 
C 

C  SET  UP  THE  PROBABILITY  OF  AN  ATTACKER  JETTISONING  ITS  ORDNANCE 

C  VARIABLE  FOR  BINFAC.  GET  THE  FRACTION  THAT  WILL  JETTISON. 

C 

DO  40  K  AC  =  1 #  N  2 
DO  40  I  AC  a 1 #  N 1 
IADDR»(IAC-1)*N2+KAC 
PKK { IADDR ) *PAJO(IAC  ) 

40  CONTINUE 

CALL  BINFAC (DD#  PDD# PKK, TEMP#CA#N2#N1,FK) 

DO  45  IACal#Nl 

THE  NUMBER  OF  ATTACKERS  THAT  WILL  GO  HOME  IS  THE  FRACTION  OF 
TOTAL  ATTACKERS  THAT  JETTISON  ORDANCE  AND  RETURN  FIRE. 

AH  (  I  AC ) a  A T ( I  AC )*(1.0-FK( I AC  > ) 

45  CONTINUE 

IF  THE  TOTAL  SHOTS  FIRED  (TEMT)  BY  THE  DEFENDERS  IS  NEGLIGIBLE 
SET  ATTACKER  ATTRITION  VARIABLES  TO  ZERO. 

T  EM  T  *  0 • 

DO  57  KACal#N2 
TEMT=TEMT+DD(KAC)*PDD(KAC) 

57  CONTINUE 

I F ( TE  MT ♦ L E • • 000 1 )  GO  TO  70 

THE  NUMBER  OF  TYPE  KAC  DEFENDERS  KILLED  AND  DAMAGED  (DO)  IS  THE 
SUM  OF  THE  NUMBER  OF  TYPE  IAC  ATTACKERS  THAT 

SHOT  AT  THE  DEFENDER  (DK)  TIMES  THE  ALLOCATION  OF  SHOTS  (TEMPI) 
FOR  THOSE  ATTACKERS.  THE  ALLOCATION  OF  SHOTS 

DEPENDS  ON  THE  NUMB  E  R  OF  DEFENDERS#  PROBABILITY  OF  DETECTION 
AND  THE  POSSIBLE  SHOTS  THAT  COULD  BE  FIRED. 

DO  60  KAC  *  1  *  N2 
DK (KAC  )  * 0 . 

DO  59  I  AC  a  1  #  N 1 

D  K  (  K  AC ) a  DK ( K  AC  ) + AM AX  1 (0.0# AH < I  AC ) - AK ( I  AC ) )  +  PK A ( I  AC # K AC  ) 

DK (KAC  )*AMIN1 (DK (KAC  )#  D(KAC  )  ) 

59  CONTINUE 
C 

C  THE  PROPORTION  OF  DEFENDERS  THAT  DETECT  ENEMY  AIRCRAFT  AND  ARE 

C  NOT  KILLED  GO  HOME.  DEFENDERS  ALIVE  ARE  THOSE  THAT 

C  ARE  NOT  KILLED  OR  THAT  GO  HOME. 

C 
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IF { POD ( KAC ) . LT. 1 • 0)  GO  TO  61 
DH ( K AC ) *D ( K  AC  ) 

GO  TO  62 

61  DH  (  K AC ) =0 ( KAC ) * ( 1 • 0- < 1 . 0-P 00 ( K AC )  )*+TEMP) 

62  OHtKACJ-AMAXl (0.0>DH(KAC )-DK(KAC ) ) 

DA ( KAC ) *ANAX1(0.0>D(KAC )-DK (KAC ) -DH { K  AC ) ) 

60  CONTINUE 
C 

C  THE  ATTACKER  OUTPUT  VARIABLES  WERE  CALCULATED 

C  FROM  BINFAC.  HERE  SUBTRACT  OUT  EMBEDDED  VALUES  TO  GET  TRUE 

C  VALUES. 

C 

00  65  I  AC  =1  *  N1 

AH( IAC )  3  AM  AX  1  ( 0 ♦ 0#  AH ( IAC  )  —  A K ( IAC )  ) 

AA( I  AC )*AMAX 1(0.0, AT< I  AC )-AK( IAC)-AH( I  AC) ) 

65  CONTINUE 
GO  TO  99 
C 

C  ENTER  THIS  SECTION  ONLY  IF  THERE  ARE  NOT  ENOUGH  AIRPLANES  TO 

C  JUSTIFY  DOING  ATTRITION. 

C 

70  DO  72  I  AC  s 1 , N  1 
AA(IAC)=AT(IAC) 

AH ( I  A C ) * 0 • 

AK  (  I  AC  )«0. 

72  CONTINUE 

DO  73  K  A  C  s  1  #  N  2 
0  A  (  K  AC  )  *D  (  K  AC  ) 

DK(KAC)«0. 

DH ( K  AC ) 3  0 • 

73  CONTINUE 
99  CONTINUE 

RETURN 

END 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 
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DECK  A  TR  TED 

SUBROUTINE  A T R T E D ( E T 9 D T , P D E , P DD > P K E , PKO ,  CA,N1,N2,AEE, 

X  AED, AEA, EA> EK»  EH,DA,DK,  DH,IAF) 

ATRTED  COMPUTES  ATTRITION  FOR  ESCORTS  VERSES  DEFENDERS. 

THE  INPUTS  ARE: 

ET  =  TQT  AL  NUMBER  OF  ESCORTS 
DT'TOTAL  NUMBER  OF  DEFENDERS 

PDE  *PR03 AB II I TY  THAT  AN  ESCORT  WILL  DETECT  A  DEFENDER 
PDD -PROBAB IL I TY  THAT  A  DEFENDER  WILL  DETECT  AN  ESCORT 
PK  E  =  PROS AB  IL ITY  THAT  AN  ESCORT  WILL  KILL  A  DEFENDER 
PKD*PROBA3ILITY  THAT  A  DEFENDER  WILL  KILL  AN  ESCORT 
C A  *C0M8AT  AREAS 

N 1  =  D  I MENSION  FOR  ESCORT  VARIABLES 
N2=DIMEN$ ION  FOR  DEFENDER  VARIABLES 

AE  E*AVERAGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION 
TO  1.0)  AN  ESCORT  CAN  SHOOT  AT  A  DEFENDER 
AED- AVER  AGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION 
TO  1.0)  A  DEFENDER  CAN  SHOOT  AT  AN  ESCORT 
AE  A  * AVE  R  AGE  NUMBER  OF  ADDITIONAL  ENGAGEMENTS  (IN  ADDITION 
TQ  1.0)  A  DEFENOER  CAN  SHOOT  AT  AN  ATTACKER 
I AF  =  INDEX  FOR  ATTRITION  CALCULATIONS 

THE  OUTPUTS  ARE: 

EA«ESCORT$  ALIVE 
EK=ESCQRT$  KILLED 
EH  *  E S  C  OR T  S  GONE  HOME 
DA=OEFENDERS  ALIVE 
DK=DEFENDERS  KILLED 
DH  *DE  F  END  ER  S  GONE  HOME 

IN  THIS  ROUTINE  A  SHOOT  AND  SHOOT  BACK  SCHEME  IS  USED.  THE 
DEFENDERS  SHOOT  AT  THE  ESCORTS  FIRST,  AND  THEN  ESCORTS  LEFT 
SHOOT  BACK.  THEN  THE  ESCORTS  SHOOT  AT  THE  DEFENDERS  FIRST  AND 
THE  NUMBER  OF  DEFENDERS  LEFT  SHOOTS  BACK.  THE  ATTRITION 
RESULTS  ARE  AVERAGED  AS  EXPLAINED  LATER. 

DIMENSION  EA(N1) t D A ( N 2 ) r P D E (N1),PDD(N2),PKE(N1,N2),PKD(N2,N1), 

X  EK{N1),EH(N1),DK(N2),0H(N2),DK1(2)>DK2(2),EK1(1),EK2(1), 

X  AED(N2),AEA(N2),AEE(N1),ET(N1),DT(N2) 

DIMENSION  E(l)>D(2)jAAFD(2),BEE(l) 


C 

C  SUM  THE  NUMBER  OF  ESCORTS  AND  OFFENDERS.  IF  THERE  ARE  LESS  THAN 

.0001  OF  EITHER  SKIP  AROUND  ROUTINE  AND  SET  ATTRITION  VARIABLES 
C  TO  ZERO. 

C 

T  E  M  P 1  =  0  • 

DO  2  I  AC  *  1 , N 1 
2  TEMP1*TEMP1  +  ET< I  AC ) 

I  F  «  TEMPI*  LE • 0.0001)  GO  TO  90 
T  E  M  P  =  0 . 

DO  4  K AC  *  1 >  N2 
4  TEMP=TEMP+DT (KAC ) 

IF(TEMP.LE.C.OOOl)  GO  TO  90 
C 

c  THIS  SECTION  CALCULATES  AAED.  IT  IS  A  PORTION  OF  THE  TOTAL 
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C  ADDITIONAL  SHOTS  FOR  THE  DEFENDERS 

C 

TE  HP A  =  0 • 0 
DO  5  KAC«1*N2 
A  A  E  D  ( KAC )*0.0 

5  TEMPA=TEMPA+DT  (KAC)+AED(KAC  ) 

IF (TEMPA.LE .0.0)  GO  TO  9 
DO  7  KAC  =  1  *  N2 

TEMPB* ( (DT (KAC )*AED (KAC )/TEMPA)*(TEMPl“DT(KAC) ) ) 

IFCDT(KAC) .GT.O.O)  TEMPBSTEMP8/DT (KAC  ) 

TEMPB-AMAX1(0.0*TEMPB  ) 

A  A  ED ( KAC  )**AMIN1(AED(KAC  ) >  T  E  MP  B  ) 

7  CONTINUE 

8  CONTINUE 
C 

C  THIS  SECTION  CALCULATES  BEE*  WHICH  IS  A  PORTION  OF  THE  TOTAL 

C  ADDITIONAL  SHOTS  FOR  THE  DEFENDERS 

C 

IF(IAF.EO.O)  GO  TO  12 
C 

TEMPA  =  0.0 
DO  9  I  AC  *  1  *  N 1 
BEE(IAC)*0.0 

9  TEMP A*TEMPA  +  ET (IAC )*AEE (  IAC  ) 

IF(TEMPA.LE.O.O)  GO  TO  11 

DO  10  I  AC  *  1  *  N 1 

TEMPB  * ( (ET(IAC)*AEE(IAC  )/TEMPA)*(TEMP-ET(IAC) )  ) 

IF(ET(I AC). GT.O.O)  TEMPB=TEMPB/ET (  IAC  ) 

TEMPB* AMAX 1 (0.0*TEMPB) 

BEE  (IAC  )*AMIN1(AEE(IAC)*TEMPB) 

10  CONTINUE 

11  CONTINUE 
GO  TO  14 

C 

12  DO  13  I  AC  *  1  *  N  1 

13  BEE  (IAC  )  -  AEE ( IAC ) 

14  CONTINUE 
C 

C  LET  THE  DEFENDERS  SHOOT  FIRST.  SET  UP  THE  INPUTS  FOR  B INOAT  • 

C  D  IS  THE  TOTAL  POSSIBLE  SHOTS  FOR  THE  DEFENDERS. 

C 

DO  15  K  AC  =  1  *  N  2 

D(KAC )*DT(KAC  >*< l.O  +  AAEDCKAC >  > 

15  CONTINUE 

CALL  B I N  OA  T ( D  * E T * P D D * P KD * C A , N 2 * N 1  * E K  1  ) 

C 

C  LET  THE  NUMBER  OF  ESCORTS  LEFT  SHOOT  BACK  AT  THE  DEFENDERS 

C  WITH  ALL  OF  THEIR  ADDITIONAL  SHOTS. 

C 

DO  25  IAC*1*N1 
E ( I  AC )  =  ET( IAC )-EKl (IAC ) 

E(IAC)*E<IAC1*(1.0+BEE(IAC)) 

25  CONTINUE 

CALL  8INQAT(E*DT*PDE*PKE*CA,N1*N2*DK2) 

C 

C  LET  THE  ESCORTS  SHOOT  FIRST  WITH  ALL  ADDITIONAL  SHOTS. 

C 
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OQ  61  I  AC  *  1*  N1 

61  E (IAC )  * ET  ( IAC)*(1.0+BEE(IAC)  ) 

CALL  BIN0AT(E#0T#PDE»PKE#CAiNl»N2#0Kl) 

C 

C  LET  THE  NUMBER  OF  DEFENDERS  LEFT  SHOOT  BACK  AT  THE  ESCORTS 

C  WITH  A  PORTION  OF  THEIR  ADDITIONAL  SHOTS. 

C 

DO  63  KAC  *  1  *  N2 
D ( K AC  )  *  D  T  (  K  A  C  )-DKl (KAC  ) 

D (KAC )*D(KAC )*  ( 1 .0+AAED < KAC ) ) 

63  CONTINUE 

CALL  BINOATCD>ET»PDOf PKD»CA#N2#Nlf EK2) 

C 

C  ESF  AND  DSF  ARE  THE  PROPORTION  OF  ESCORTS  THAT  SHOOT  FIRST  AND 

C  THE  PROPORTION  OF  DEFENDERS  THAT  SHOOT  FIRST  RESPECTIVELY. 

C  TEMP  AND  TEMPI  ARE  THE  NUMBER  OF  DEFENDERS  PER  COMBAT  AREA  AND 

C  THE  NUMBER  OF  ESCORTS  PER  COMBAT  AREA  RESPECTIVELY. 

C 

E  S  F  *0 • 

DS  F  3 0 . 

DO  32  I  AC  *  1#  N1 

32  ESF-ESF  +  ETUAOMAEEUACm.) 

DO  34  KAC*1>N2 

34  DSF*DSF  +  DT<KAC)*UED(KAC)  +  1.) 

EDSUM«ESF+OSF 
E$F«ESF/ED$UM 
DSF -DSF / EDSUM 
T  E  M  P*  TE  MP  /  C  A 
T  EMP1 *TEMP  1/CA 
DO  40  IAC«1*N1 

EK( IAC ) *  EK 1 ( IAC )*0SF+EK2( IAC) *  E  S  F 
I  F ( PDE ( IAC I .LT .1.0)  GO  TO  44 
EH  (  I  AC ) *E  T ( I  AC  ) 

GO  TO  46 

44  EH(  IAC  )*ET (IAC )*(1.Q-(1.0-PDE (IAC ) )**TEMP) 

46  EH( IAC) *  EH (I  AC )*(1.0  +  BEE( IAC) )/ (1 .O+AEE (IAC) ) 
EH(IAC)=AMAX1(0.0,EH(IAC)~EK(IAC)) 

EA (  IAC ) *ET ( I  AC )-EK( IAC )-EH( IAC ) 

40  CONTINUE 
C 

C  DEFENDERS  HOME  IS  THE  PERCENTAGE  OF  LIVE  DEFENDERS  THAT  MAKE  A 

C  DETECTION  TIMES  THE  FRACTION  OFMISSILES  ACTUALLY  FIRED*  (IE. 

C  IF  1/3  OF  THE  MISSILES  ARE  FIRED  1/3  OF  THE  DEFENDERS  LEFT 

C  ALIVE  THAT  MADE  A  DETECTION  GO  HOME.) 

C 

DO  50  K AC  =  1  *  N2 

DK(KAC)aDKl(KAC )*E$F+0K2(KAC  )*DSF 
DH(KAC)*DT(KAC 1.0-PDD (KAC ) ) ♦♦TEMPI) 
DH(KAC)*DH(KAC)*(1.0+AAED(KAC))/(1.0+AEA(KAC)) 

DH(KAC)SAMAX1 (0.0*DH(KAC )-DK(KAC ) ) 

DA(KAC) *  DT (KAC ) -DH ( K  A  C ) -DK ( K AC ) 

50  CONTINUE 
GO  TO  99 
C 

C  ENTER  THIS  SECTION  ONLY  IF  THERE  ARE  A  NEGLIGIBLE  NUMBER  OF 

C  ESCORTS  OR  DEFENDERS 

C 
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90  DO  92  IAC*1»N1 
E A ( I  AC ) *ET (  I  A C  ) 
EH<IAC)«0. 

92  E  K ( I  AC ) =  0  • 

00  94  KAC=1>N2 
OA (KAC ) *DT (KAC ) 
OH ( K AC )  =  0  • 

94  DK  (  K  AC  )  =  0  • 

99  CONTINUE 
RETURN 
END 
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O  DECK  ATRTIA 

SUBROUTINE  ATRTIA(DLI>CAP*ESC*BMR*DLIM,CAPM*ESCM>PKFA,PKEF*FK>EK, 
1  BKjIAF) 

C* 

WRITE (6, 1 ) 

WRITE  ( 6  *  201) 

1  F0RMATI26H - ) 

201  F  OR  M  AT  (  2  4H  START  SUBROUTINE  ATRTIA) 

C* 

FTR  =  CAP+DLI 
ATT  -  ESC  +  BMR 

IF (FTR.GT.O. . AND. ATT.GT.O. )  GO  TO  10 
FK  *  0. 

BK  =  0. 

EK  -  0. 

GO  TO  100 
10  CONTINUE 
C  * 

FT1  =  AMAX1 ( FTR* 1,0) 

ATI  *  AM AX  1 ( ATT *1.0) 

C* 

C*  SELECT  ATTRITION  EQUATION 

C*  IAF=1  MEANS  RANDOM  TARGETING*  IAF*2  MEANS  COORDINATED  TARGETING 
C* 

IF(IAF,EQ,2)  GO  TO  50 
C* 

C*  CALCULATIONS  FOR  IAF  -  1  — 

C  + 

C*  LET  FIGHTERS  SHOOT  FIRST 

C  * 

FM  =  CAP+CAPM  +  DLItOLIM 

BK1  =  8MR*(1.-(1.-PKFA/AT1)**FM) 

EK 1  «  ESC*(1.-(1.-PKFA/AT1)**FM) 

EMI  «  (E$C-EK1)*6SCM 

FK 1  =  FTR*(1.-<1.-PKEF/FT1)**EM1) 

C* 

C*  LET  ESCORTS  SHOOT  FIRST 

C* 

EM  -  ESC+ESCM 

DK2  =  DL  I*( 1«— (l*-PKEF/FTl)t+EM) 

CK2  =  CAP*(1.-(1.-PKEF/FT1)**EM) 

FM2  *  (CAP-CK2)*CAPM  ♦  ( OL I-DK2 ) *  D  L I M 
BK2  *  BMR* ( 1 . - ( 1 ,-PKFA / ATI )**FM2 ) 

EK2  =  ESCM1.-<1.-PKFA/AT1)**FM2) 

C* 

GO  TO  90 
C* 

50  CONTINUE 
C* 

C*  CALCULATIONS  FOR  IAF  =2  — 

C* 

C*  LET  FIGHTERS  SHOOT  FIRST 

C* 

FM  =  CAP*CAPM  +  DLI+DLIM 
SDT  =  FM/AT1 
TSDT  *  AINT(SDT) 

3K1  *  BMR* ( 1 ,-<( 1 .-< SDT-TSDT ) *PKF A )*(( 1 ,-PKFA ) ++TSDT )) ) 
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EK1  =  ESC*(1.-U1.-(SDT-TSDT)*PKFA)*((1.-PKFA)**TSDT)>) 

EMI  *  (ESC-EK1 )*ESCM 
SDT  =  EM1/FT1 
TSOT  =  A  I  NT (SDT) 

FK1  *  FTR*<l.-Ul.-CSDT-TSDT)*PKEF)*m.-PKEF)**TSDTm 
C* 

C  *  LET  ESCORTS  SHOOT  FIRST 
C* 

EM  =  ESC+ESCM 
SDT  *  EM/FT1 
TSDT  *  AINT(SDT) 

0K2  =  DLI* ( 1 •-( ( 1 .-(SDT-TSDT)*PKEF )* ( ( l.-PKEF ) **TSDT ) ) ) 

CK2  *  CAP*( !•-( (l.-(SDT-TSDT)*PKEF )*<( l.-PKEF ) **TSDT) ) > 

F  M2  *  ( CAP-CK2 )*CAPM  +  ( DL I -DK2 ) * D L I M 
SDT  «  FM2/AT1 
TSDT  *  AINT(SDT) 

8K2  =  BMR*(1.-U1.-(SDT-TSDT)*PKFA)*((1.-PKFA)**TSDT))) 

EK2  *  ESC* ( l.-( ( l.-C SDT-TSDT)*PKFA )*( { l.-PKFA  )  **TSDT) ) ) 

C* 

90  CONTINUE 
C* 

C*  AVERAGE  THE  RESULTS 
C* 

EK  *  (EK1+EK2 ) /2# 

8  K  «  (BK1+BK2J/2. 

FK  =  (FKl+DK2+CK2)/2. 

C* 

100  CONTINUE 
C* 

PRINT  210>  FK>  EK#BK 

210  FORMAT ( 8H  FK*,F10.4i8H  EK=>F10.4,8H  BK=>F10.4) 

WRITE (  6  >  299  ) 

WRITE  <6>2 ) 

299  FORMAT (25H  END  OF  SUBROUTINE  ATRTIA) 

2  FORMAT ( 26H  - ) 

C 

RETURN 

END 
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SUBROUTINE  ATPTS$(T,AVGSS,A,POA,PSA,PKA,AVLS,ANM,PDS,PK$,FASS,CA, 
1NX,N1,AESGS,FSM,FVS,TSC,IAF,IAW,SA,SS,SK,AA,AH,AK) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ATRTSS  COMPUTES  ATTRITION  FOR  A  I RC R A F T ' VE R S U S  SAMS 

THE  INPUTS  ARE: 

T*  TOT  AL  NUMBER  OF  SAMS 

AVGS S  =  AV ER  AGE  NUMBER  OF  SAM  SHOTS  PER  SAM  PER  AIRCRAFT 
A  =  NUMB  ER  OF  AIRCRAFT 

PDA=PROBA8ILITY  THAT  A  SAM  SUPPRESSOR  WILL  DETECT  A  SAM 

PSA  *PRQB AB IL I T Y  THAT  A  SAM  SUPPRESSOR  WILL  SUPPRESS  A  SAM 

PKA  =  PR OB  ABILITY  THAT  A  SAM  SUPPRESSOR  WILL  KILL  A  SAM 

AVLS=AVAILABILITY  FACTOR  FOR  SAMS 
ANM  3 AC  TUAL  NUMBER  OF  MISSLES  FOR  SAMS 
PDS'PROBABIL ITY  THAT  A  SAM  WILL  DETECT  AN  AIRCRAFT 
PKS=PROBABILITY  THAT  A  SAM  WILL  KILL  AN  AIRCRAFT 
FASS'FRACTION  OF  AIRCRAFT  THAT  CAN  DO  SAM  SUPPRESSION 
C  A  *C  OM8 A  T  AREAS 

NX  *DI MENSION'  OF  SAM  VARIABLES  (ILS) 

Nl=DIMENSION  OF  AIRCRAFT  VARIABLES  (IAC) 

AFSGS  *  AVER  AGE  NUM8ER  OF  ADDITIONAL  GROUND  TARGETS  THAT  AN 
AIRCRAFT  CAN  POTENTIALLY  MAKE  AFTER  HAVING 
ENGAGED  A  SAM 

PSM=FR ACTION  OF  AIRCRAFT  THAT  ARE  INVULNERABLE  TO  SAMS 
(PERHAPS  DUE  TO  STANDOFF  MUNITIONS) 

FVS=FR ACTION  OF  SAMS  VULNERABLE  TO  SAM  SUPPRESSORS 
TSC  *TOT  AL  SHOTS  PER  CYCLE  FOR  A  SAM 

I  A  F*  A  TTR  I  T  ION  F UNC T I  ON .  ( V AR  I  AB L E  IS  NOT  CURRENTLY  USED.) 
IAW=ATTRITI0N  WEIGHTING  METHOD 

THE  OUTPUT  VARIABLES  ARE: 

SA-SAMS  ALIVE 
S S  * S  A M S  SUPPRESSED 
SK  =  S  A  MS  KILLED 
AA=AIRCRAFT  ALIVE 
AH=AIRCRAFT  GONE  HOME 
AK  *A I RCR AF  T  KILLED 

THIS  ROUTINE  USES  A  SHOOT  AND  SHOOT  BACK  SCHEME.  FIRST  ALL  THE 
AIRCRAFT  SHOOT  AT  THE  SAMS  THAT  ARE  VULNERABLE.  THEN  THE  SAMS 
LEFT  SHOOT  BACK  AT  THE  AIRCRAFT  WITHOUT  STANDOFF  MUNITIONS. 
NEXT  THE  SAMS  ARE  ALLOWED  TO  SHOOT  FIRST,  AND  THE  AIRCRAFT 
SHOOT  BACK. 

DIMENSION  T(NX),AVGSS(NX),A (N1)»PDA(N1) ,PSA(NI,NX ) , PKA (NX ) , 

X  AVLS(NX),ANM(NX),PDS(NX),PKS(NX,N1),FASS(N1),SA(NX),SS(NX), 

X  SK(NX),  AA(N1),AH(N1),AK(N1),  AESGS(Nl), 

X  $K1(2),SK2(2),  $L(2),SS1(2),SS2(2), 

X  A  K 1 ( 3 )  »  AK  2 ( 3 )  ,  AL  (  3  )  ,ST(3)  ,AT(3)  , 

X  FSM(Nl ) ,FVS(NX), TSC  (NX) 

DIMENSION  P  K ( 6 ) , S ( 2  )  ,  SF1(2),SF2(2),ANM1(2),ANM2(2) 


C* 


WPITE(6,I) 

WRITE ( 6 ,  201) 

1  FORMAT (2 6H - ) 

201  FORMAT ( 2 4H  START  SUBROUTINE  ATRTSS) 


E-31 


o  o  o  o  o  n 


SUBROUTINE  atrtss 


c* 

C*  CONSIDER  ONLY  AVAILABLE  SAMS 

C* 

DO  3  I LS  =  1 #  NX 

3  S(ILS  )  =  T(ILS)*AVLS(ILS) 

c 

C  SUM  THE  NUMBER  OF  SAMS  AND  AIRCRAFT.  IF  THERE  ARE  FEWER  THAN 

C  .0001  SKIP  THE  WHOLE  ROUTINE*  AND  SET  THE  ARRAYS  TO  ZERO. 

C 

A  S  U  M  =  0 .  0 
S  S UM  =  0 , 0 
DO  65  I  AC  *  1  *  N 1 

65  A  SUM  =  ASUM  +  A (  I  AC ) 

00  66  ILS=1*NX 

I F ( I  AW  .EG.  2)  GO  TO  67 
S$UM*SSUM+S(ILS)*TSC ( ILS ) 

GO  TO  66 

67  SSUM*SSUM+S(ILS) 

66  CONTINUE 

I F ( ASUM . L F . . 0001 . OR .5SUM . LE . .0001 )  GO  TO  50 
C 

C  LET  ALL  OF  THE  AIRCRAFT  SHOOT  FIRST  AT  THE  SAMS  THAT  ARE 

C  VULNERABLE  TO  SAM  SUPPRESSORS. 

C 

C  CONSIDER  VULNERABILITY  OF  SAMS  AND  SUPPRESSION  CAPABILITY  OF 

c  AIRCRAFT 

C 

DO  5  ILS=1*NX 

5  ST(ILS)=S(ILS)*FVS(ILS) 

DO  6  I AC  « 1#  N1 

6  AL(IAC)  *  A ( I  AC ) *F  A  $  $ ( I  AC  ) 

C 

CALL  BIN0AT(AL#ST#PDA#PSA#CA#N1*NX#S$1) 


SUM  THE  NUMBER  OF  AIRCRAFT  WITHOUT  STANDOFF  MUNITIONS.  IF  THERE 
ARE  NONE  DO  NOT  ALLOW  THE  SAMS  TO  SHOOT  BACK  AT  THE  AIRCRAFT# 
BUT  LET  THE  TOTAL  NUMBER  OF  SAMS  KILLED  AND  SUPPRESSED 

BE  SKI  AND  SSI  RESPECTIVELY*  AND  SET  THE  NUMBER  OF 
AIRCRAFT  KILLED  TO  ZERO. 

C 

C 

AT  S  U  M  =0  •  0 
DO  16  IAC*1#N1 

AT (I  AC )«A( I  AC  >*(1.0-FSM(IAC ) ) 

A  T  SUM* AT  SUM  +  A  T  ( I  AC  ) 

16  CONTINUE 

IF(ATSUM.EO.O.O)  GO  TO  22 
C 

C  ONLY  SAMS  THAT  HAVE  BEEN  SUPPRESSED  CAN  POTENTIALLY  BE  KILLED 

C  SO  SAMS  KILLED  IS  CALCULATED  BY  APPLYING  THE 

C  PROBABILITY  OF  KILL  TO  THE 

C  SUPPRESSED  SAMS  (WHICH  WAS  CALCULATED  IN  B INOAT  > •  SAMS  LEFT 

C  IS  THE  TOTAL  NUMBER  OF  SAMS 

C  MINUS  SAMS  SUPPRESSED.  THE 

C  SHOTS  THAT  CAN  BE  FIRED  BY  THE  SAMS  LEFT  IS  AT  LEAST  ONE*  OR 

C  PROPORTIONAL  TO  THE  SIZE  OF  THE  RAID  UP  TO  AS  MANY  MISSILES  AS 
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C  THEY  HAVE  LEFT. 

C  THE  ACTUAL  NUMBER  OF  MISSLES  IS  REDUCED  BY  THE  SHOTS 

C  FIRED  AND  THE  MISSLES  AT  SAM  SITES  THAT  WERE  KILLED.  IF  THE 

C  TOTAL  SHOTS  PER  CYCLE  GOES  TO  ZERO  ALL  THE  SAMS  ARE  SUPPRESSED. 

C  ADD  TO  THE  SAMS  SUPPRESSED 

C  THE  PROPORTION  OF  SAMS  THAT  HAVE  RUN  OUT  OF  MISSLES. 

C 

DO  11  ILS-l.NX 

SKI ( ILS  )  -SSI  (  ILS  )*PKA  <  I  LS  ) 

SL ( I L  S  )  *  S  C ILS  )  —  AMAX1(SK1(ILS)»SS1 (  ILS)  ) 

SF1(ILS)=AMAX1(SL<ILS),SL(ILS>*AVGSS(ILS)*ATSUM> 

$F1(ILS)=AMIN1(SF1(1LS),ANM(ILS)»SL(ILS)*TSC(ILS)) 

TEMP-SFKILS  )  *  ( 1 . 0-(  1 . 0-PDS  (ILS)  > ** I ATSUM/C A )  ) 
ANM1(ILS)-AMAX1(0.0,ANM(ILS)  —  TEMP— SK1IILSI  +  TSCIILS)) 

IF ( TSC ( ILS ) .LE  .0.0)  GO  TO  36 
SS1(ILS)=SS1(ILS)+AMIN1(TEMP/TSC(ILS),SL(ILS)1 
GO  TO  37 

36  SSI  (  ILS  )  =  SL  (  ILS  J  +  SS1  (  ILS  ) 

37  CONTINUE 

11  CONTINUE 

DO  12  ILS-l.NX 

DO  12  IAC-1.N1 

IADDR  * (  I  AC- 1 )  +NX  +  ILS 
PK(  IADDRJ-PKS (  ILS. IAC  ) 

12  CONTINUE 
C 

C  LET  THE  SAMS  LEFT  SHOOT  SF1  NUMBER  OF  MISSLES  AT  THE  PLANES 

C  WITHOUT  STANDOFF  MUNITIONS. 

C 

CALL  BIN0AT(SF1,AT.PDS.PK.CA.NX.N1»AK2) 

C 

C  LET  THE  SAMS  SHOOT  FIRST 

C  A  SAM  CAN  SHOOT  AT  LEAST  1  SHOT,  OR  IT  CAN  SHOOT  PROPORTIONAL 

C  TO  THE  NUMBER  OF  AIRCRAFT  UP  TO  AS  MANY  MISSLES  AS  IT  HAS. 

C 

DO  17  ILS-l.NX 

SF2IILS  J-AMAX1  (SIRS),  SIILS  I  +  AVGSS  <ILS)*ATSUM) 
SF2(ILS)=AMINltSF2(ILS),ANM(ILS)»S(ILS)*TSC(ILS)) 

17  CONTINUE 

CALL  BINOAT ( SF2.AT .PDS.PK  , C A , N X , N 1 , A K 1 ) 

C 

C  SET  THE  NUMBER  OF  AIRCRAFT  LEFT  TO  THE  TOTAL  NUMBER  OF  PLANES 

C  MINUS  THOSE  KILLED,  AND  CONSIDER  SUPPRESION  CAPABILITY. 

C 

DO  14  IAC-1.N1 

14  AL(IAC)  -  ( A { IAC  l-AKl  (  I  AC  )  )*FASS (  I  AC  ) 

C 

C  LET  THE  NUMBER  OF  AIRCRAFT  LEFT  SHOOT  BACK  AT  SAMS. 

C 

DO  62  ILS-l.NX 

TEMP-SF  2  (  RS  )*(  1.0-11.  C-PDSI  ILS)  MMATSUM/CA  )) 
ANM2(ILS)=AMAX1(0.0,ANM(ILS)-TEMP) 

IF ( TSC ( ILS ) .LE  .0.0 )  GO  TO  63 

SSI ILSJ-AMIN1 (TEMP/TSC ( ILS)  ,S  (ILS  ) ) 

GO  TO  64 

63  SSIILS)-S(ILS) 

64  CONTINUE 
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ST(ILS)«AMAX1(Q.0,ST<ILS>-SS(ILS)) 

62  CONTINUE 

CALL  B I  NO AT ( AL , S T , PD A, PS  A, C A > N 1 , NX , S S 2  ) 

C 

C  ASF  AND  SSF  ARE  THE  PROPORTION  OF  AIRCRAFT  THAT  SHOT  FIRST,  AND 

C  THE  PROPORTION  OF  SAMS  THAT  SHOT  FIRST  RESPECTIVELY. 

C 

A$SUM*ASUM+S$UM 
ASF* ASUM/A5SUM 
SSF«S$UM/ASSUM 

AIRCRAFT  KILLED  ARE  COMPUTED  BY  AVERAGING 
THE  NUMBER  OF  PLANES  KILLED  WHEN  THE  SAMS  SHOT 
FIRST  AND  WHEN  THE  PLANES  SHOT  FIRST. 

DO  18  I  AC  *  1 , N 1 

AK(IAC)=AK1(IAC)*S$F+AK2(IAC)*ASF 

18  CONTINUE 

AGAIN  COMPUTE  THE  SAMS  KILLED  FROM  THOSE  THAT  HAVE 

BEEN  SUPPRESSED,  DECREASE  THE  ACTUAL  NUMBER  OF  MISSLES  AND  ADD 
IN  ADDITIONAL  SUPPRESSED  SAMS 

00  19  ILS*1,NX 
SK2(ILS)*SS2(ILS)*PKA(ILS> 

C  AS  WITH  THE  AIRPLANES,  THE  SAMS  KILLED,  AND  SUPPRESSED 

C  ARE  AN  AVERAGE  OF  THE  SAMS  KILLED,  AND  SUPPRESSED  WHEN 

C  THE  AIRPLANES  SHOT  FIRST  AND  WHEN  THE  SAMS  SHOT  FIRST. 

C 

SS2ULS)*SS2<ILS)+SS(US) 

SK(ILS)=SK1(ILS)*ASF+SK2(ILS)*SSF 

SS(ILS)*SS1<IL$)*ASF+S$2(ILS)*SSF 

ANM2(  ILS  )*AMAX1(Q.0,ANM2(ILS)-SK2( I L  S )  *  TSC { ILS) ) 

ANM< ILS) *ANM1< IIS  >*A$F  +  ANM2< ILS )*SSF 

19  CONTINUE 
GO  TO  23 

C 

C  THIS  SECTION  IS  ENTERED  ONLY  IF  ALL  THE  PLANES  USE  STANDOFF 

C  MUNITIONS 

C 

22  CONTINUE 

DO  24  IACrl,Nl 
AK(IAC)*0.0 
24  CONTINUE 

DO  26  I L  S  *  1 , NX 
SK(ILS)=SS1(ILS)*PKA(ILS) 

SS(ILS)*SS1(ILS) 

26  CONTINUE 
C 

C  UP  TO  THIS  POINT  SAMS  SUPPRESSED  INCLUDES  SAMS 

C  KILLED.  THEY  ARE  SEPARATED  HERE*  SAMS 

C  KILLED  IS  ALREADY  A  TRUE  NUMBER. 

C 

23  CONTINUE 

DO  20  ILS*1,NX 

SS( ILS)=AMAX1(0.0,SS( I  L  S  )  -  S  K  ( ILS) ) 
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SA(ILS)=AMAX1(0.0,S(ILS)-SS{ILS)-SK(ILS) ) 
SA(ILS)  *  SA(ILS)  +  T(ILS)*(1.-AVLS(ILS)  ) 
20  CONTINUE 


SUM  THE  NUMBER  OF  VULNERABLE  SAMS.  IF  THERE  ARE  NONE  THEN  NONE 
OF  THE  SUPPRESSORS  GO  HOME  BECAUSE  THEY  ARE  OUT  OF  AMMUNITION. 
IF  THERE  ARE  SOME  VULNERABLE  SAMS  THEN  THE  AIRCRAFT  THAT  GOT 
ENGAGED  AND  USED  ALL  THEIR  AMMUNITION  GO  HOME.  THE  FRACTION  OF 
PLANES  THAT  GO  HOME  EQUALS  THE  NUMBER  OF  ENGAGEMENTS  DIVIDED  BY 
THE  POTENTIAL  CAPABILITY. 


TOT  =0 . 

DO  30  ILS *1, NX 
TOT*TOT+ST(ILS) 

30  CONTINUE 

DO  35  I  AC  =  1 , N 1 
IF(TOT.GT.O.O)  GO  TO  32 
AH(  IAC)*0,0 
GO  TO  33 

32  CONTINUE 

TEMP* (1. O-PDA ( I  AC) )**(TOT/CA> 

AH (I  AC )  -  < A ( I  AC )*FAS$ (  I  AC )  )*( 1.0-TEMP) / ( 1 . 0  +  A E S G S ( I  AC  > ) 
AH(IAC)*AMAXI(0.0,AH(IAC  )-AK ( I  AC )  ) 

33  AA(  IAC)=AMAX1(0.0,A(IAC)-AH( IAC)  — AK(IAC)  ) 

35  CONTINUE 

GO  TO  99 
C 

C  ONLY  ENTER  THIS  SECTION  WHEN  THERE  ARE  NO  MORE  SAMS  OR  PLANES. 

C 

50  CONTINUE 

DO  51  I  AC  *  1  *  N 1 
AA(IAC)*A(IAC) 

AH<  IAC )  *0.0 
AH ( I  AC ) *  0 • 0 
AK(IAC)=0.0 

51  CONTINUE 

DO  52  ILS*1,NX 
S  A ( I L  S  )  *  S (  ILS  ) 

SS(ILS)=0.0 
SK  C ILS) «0.0 

52  CONTINUE 
99  CONTINUE 


00  110  1=1, NX 

PRINT  210,I,T(I),I,ANM(I) 

PRINT  211,  I,SA(I),  I,  SK(I  ),I,SSU> 
110  CONTINUE 

DO  120  1*1, N1 
PRINT  220,  I, A (  I) 

PRINT  221,I,AA(  I),I,AK(I), I , A H ( I ) 


120 

CONTINUE 

WRITE (6,  299) 

WRITE  (6,2  ) 

210 

F0RMAK6H 

T(»I1»2H>*,F10.4,6H 

A  NM ( ,  I  1 , 2H ) 

211 

FORMAT (6H 
X2H) * , F 1 0 . 4 ) 

SA ( , I1,2H) -,F10.4,6H 

SK(,I1,2H) 

220 

FORMAT ( 6H 

At  »I1, 2H) *»F10.4  ) 

221 

FOR  M  A  T ( 6H 

AA(,I1,2H)*,F10.4.6H 

AK ( , 11, 2H) 

X2H)*,F10.4> 

299  F  OR  MA  T { 2  5H  END  OF  SUBROUTINE  ATRTSS) 

2  F  OR  M A  T ( 26H - ) 


,  F 1 0  •  4  ) 

, F 10 • 4, 6H 


,F10. 4,6H 


SS(>  II, 


A  H  (  ,  1 1  , 


C 


RETURN 

END 
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SUBROUTINE  BARKCK { S I B , B ARL TH, NKP » PEN, E D W# C PK , E CO W, C PCK t A TTWGT# 
1PENK, SIBCK > 

COMMON  /BARSCK/  S I BC K1 , S I B CK2 

DIMENSION  PENtNKP)jEDW(NKP) *  C  PK  (  N K P  ) * ECDW(NKP) >  C  PC  K ( NK  P  ) >  PENK(NKP) 
DIMENSION  PENKA(10#2) 

C 

C  SUBROUTINE  BARKCK  ASSESSES  KILLS  BY  BARRIER  SUBMARINES  AGAINST  ENEMY 
C  PENETRATORS,  AND  ALSO  ASSESSES  COUNTERKILLS. 

C 

C  ITERATION  1— BARRIER  SUBMARINES  ATTACK  FIRST 
C  ITERATION  2  —  P  E  NE  TR  ATOR  S  ATTACK  FIRST 

C  ATTRITION  RESULTS  REPORTED  ARE  A  WEIGHTED  AVERAGE  OF  THE  TWO 
C  ITERATIONS 
C 

IF (NKP  .EQ.  0)  GO  TO  99 
ITER-1 
$  I B  A=  $  I  B 

5  DO  20  KP=1,NKP 
CPKKP-CPMKP  ) 

SCR«SIBA*AMIN1(3ARLTH,EDW(KP))/BARLTH 
NSCR=$CR 
XSCR-NSCR 
FSCR-SCP-XSCR 
IF  (  N  SC  R  «  GT .  0)  GO  TO  10 
PENKA(KP,ITER)=PEN(KP)*FSCR*CPKKP 
GO  TO  20 
10  CONTINUE 

TERM1-(1.-CPKKP)**N$CR 
TERM2*1.-TERM1+TERM1*FSCR*CPKKP 
PENKA(KP> ITER )  *PEN (KP )*TERM2 
20  CONTINUE 

I F ( ITER  .EQ.  2)  GO  TO  40 

C 

C  COUNTERKILLS 
C 

PROD  1  *  1 • 

PR0D2-1. 

DO  30  KP-1*  NKP 

TERM-AMIN1 ( 1. *  E  C  D  W  ( K  P ) /BARLTH) 

TERM-TERM*CPCK(KP) 

PRODl*PRODlMl.-TERM)**<PEN(KP)-PENKA(KPf  1) ) 

PRQD2-PR0D2*  C1«“TERM)**PEN(KP) 

30  CONTINUE 

SIBCK1-SIBM1.-PR0D1) 

SI8CK2-SIBM1.-PR0D2) 

ITER-2 

SIBA-SIB-5IBCK2 
GO  TO  5 
40  CONTINUE 

SIBCK-ATTWGT+SI8CK1+ ( 1.-A1 T  WGT)*SIBCK2 
DO  50  KP*1»NKP 

PENMKP  )-ATTWGT*PENKA(KP, 1 )♦< 1 . -ATTWGT ) *PENKA ( KP , 2 ) 

50  CONTINUE 
RETURN 

99  STOP  6401 
END 
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SUBROUTINE  BINFAC 


C*  DECK  BINFAC 

SUBROUTINE  BINFAC(S>D>P*TTC>CA>NI>NJ>FK) 

BINFAC  IS  A  BINOMIAL  ATTRITION  ROUTINE  WHICH  COMPUTES  A 
FRACTION  NOT  KILLED.  THE  EQUATION  USED  IS: 

N  I  TTC  S  (  I  )  / C  A 

FKU)»MULT<1-(1-<1-D(I>>  )  P  ( I  ,  J  )  /  MAX  ( 1 ,  TTC  )  > 

1  =  1 

WHERE  THE  VARIABLES  APE: 

FK*FR ACTION  NOT  KILLED 
S  =  SHOOTERS 

D=PR08ABILITY  OF  DETECTION 
PROBABILITY  OF  KILL 
TTC-TOTAL  TARGETS 
CA=CQMBAT  AREAS 

N I =D I  MENS  I  ON  FOR  SHOOTER  VARIABLES 
N J  =D I  ME  NS  I  ON  FOR  TARGET  VARIABLES 

DIMENSION  S{NI)»D(NI)*P(NI>NJ)>FK(NJ) 

DO  20  J=1,NJ 
F  K  (  J  )  *1  . 

IF  (TTC. LE. 0.0)  GO  TO  20 
DO  10  I  2  1  >  N  I 
IF(DCI).LT.l.O)  GO  TO  4 
TE  M  P  1 2  0 . 

GO  TO  6 
4  CONTINUE 

TE  MP1=  t  1  • 0-D ( I )  )**TTC 
6  CONTINUE 

TEMP2«I1.0-TEMP1)*AHIN1CP(I#J )#P<I# J)/TTC) 

IF  (S(I).LE.O.O)  GO  TO  10 
TEMP3«  U .O-TEMP 2) **<  S ( I )/CA ) 

FK ( J  )  =FK( J ) +TEMP3 
10  CONTINUE 
20  CONTINUE 
RETURN 
END 
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C*  DECK  BINOAT 

SUBROUTINE  BINOAT(S,T,D,P,C,NSE,NTE,TK> 

C 

C  BINOAT  IS  A  BINOMIAL  ATTRITION  ROUTINE.  THE  EQUATION  USED  IS 

C 

c  NSE  TTC  S { J ) / C 

C  TK(I ) *T { I )*< 1-MULT(1-P( J, I )/MAX (1,TTC )*< l-( 1—0 < J ) )  ))  ) 

C  J  =  1 

C  WHERE! 

C  S-NUMBER  QF  SHOOTERS 

C  T  -NUMBER  OF  TARGETS 

C  D-PROB A3 IL ITY  OF  DETECTION 

C  P*  PRQBAB IL I TY  OF  KILL 

C  C -COMB  AT  AREAS 

C  NS  E -DI MENS  I  ON  OF  SHOOTER  VARIABLES 

C  NT  E  *0  I  MEN  S I  ON  OF  TARGET  VARIABLES 

C  J  a  I  S  E  VARIES  FROM  1  TO  NSE 

C  I  =  I T  6  VARIES  FROM  1  TO  NTE 

C 

NSE 

TTC  *SUM ( T ( I) /C) 

I«1 

TK-NUMBER  OF  TARGETS  KILLED 

DIMENSION  S(NSE),T(NTE),D(NSE),P<N$E,NTE)»TK(NTE) 

C 

T  T  -  0  . 

DO  10  ITE-1»NTE 
T  T  *TT  +T ( ITE  ) 

10  CONTINUE 

IF (TT.EQ.O.  )  GO  TO  25 
TTC-TT/C 

IFITTC.LT. ,00005)  GO  TO  25 

DO  20  I TE  *1 >  NTE 

TOT-1. 

DO  15  ISE=1,NSE 
IF (S{ ISE ) .LE.O.O)  GO  TO  15 
IF ( D (  ISE  )  ♦  L  T  •  1 .  )  GO  TO  12 
TEMP-0. 

GO  TO  13 

12  CONTINUE 

TEMP- ( 1 . 0“D (ISE)  )  ♦♦TTC 

13  CONTINUE 

IF  (S(ISE). LE.O.O)  GO  TO  15 

TEMPI- AM IN1(P (ISE, ITE) >P{ ISE,  ITE) /TTC) 

TEMP  -  (1.  O-TEMP 1*  ( 1,0-TEMP  ))*MS(ISE)/C) 

TOT -TOT ♦TEMP 
15  CONTINUE 

TK  < ITE ) *T ( ITE)*( l.O-TOT) 

20  CONTINUE 
RETURN 
C 

25  DO  30  I TE *  1 , NTE 
TK(ITE)=0. 

30  CONTINUE 

RETURN 

END 
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FUNCTION  8  I  NON ( N, M  »  P  ) 

C  THIS  FUNCTION  COMPUTES  THE  PROBABILITY  OF  M  SUCCESSES  IN  N 

C  TRIALS,  WHEN  THE  PROBABILITY  OF  SUCCESS  ON  A  TRIAL  IS  P 

0=1 .-P 
A  =  P*Q 

I F ( A  .LT.  0.)  GO  TO  30 
IF(M-N)  3,1,30 

1  I F { N  .NE.  0)  GO  TO  2 
B I NOM  =  1 

RETURN 

2  CONTINUE 

B I NOM  *  P  **N 
RETURN 

3  I F ( M  .NE.  0)  GO  TO  4 
B I N  0M  =  Q*  *N 

RETURN 

4  CONTINUE 

I F ( A  .EG.  0. )  GO  TO  25 

X*1  . 

I D I F  =  2*  M-N 
I F ( 1 0 1 F ) 10# 10, 20 
10  ID  IF  *0-101 F 
00  12  K*1,M 
KM  1  =  K- 1 

X  =  X  * (N-KM1 )  *  A  / ( M-KM1 ) 

12  CONTINUE 

BINOM*X*(G**IDIF  ) 

RETURN 
20  N  MM  =  N-M 

DO  22  K  *  1 , N  MM 
KM1«K-1 

X  =  X+( N-KM 1 ) *  A / (NMM-KM1) 

22  CONTINUE 

3IN0M«X*(P**IDIF) 

RETURN 
25  B I NOM  =  0 . 

RETURN 

30  STOP  6406 
END 
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SUBROUTINE  CTFMOD 


C  *  DECK  C  TF  MOD 

SUBROUTINE  CTFMOD(L) 

C* 

C  *  C  TF  MOD  EXERCISES  THE  C  TF  MODEL  BASED  ON  IDA  REPORT  R-245 
C* 

C*  COMDECK  COM  INP 

COMMON  NEPD(l) 

COMMON  AAAEDA<2),AAAEDE(2),AAAEED(l),AACA,AAPAJO<2),AAPODA<2) 
COMMON  AAPDDE(2),AAPDED(1),AAPKAD<2,2),AAPK04(2,2),AAPKDE(2,1> 
COMMON  AAPKED(l,2),AASPAA(5),AASRED,AASRFA(5)»AASRFE(5),AASRIO 
COMMON  ABANM(2),ABAVIS(2),A3CAS,ABESGS(2),ABFASS<2) 

COMMON  ABFSM(2)»A8FVS(2>,ABPDA(2)>A3PKA(2),ABPSA(Z,2),ABPOS(2) 
COMMON  ABPKS  t  2,2) >  AB  TS  C (2) ,A8VGSS(2) , ABRSAMI2  ) 

COMMON  AEWD*AESCAB(2),ASWF,ATABT(2,3)»ATTWGT>AVAILE(5>2) 

COMMON  AINTCT, AVAILT(5>2,3 ), A VALEO < 5, 2  ) , AWRCBB 

COMMON  BACCDW(6),BACPCK(6)>BAREAQ(5)>BARELQ(5),BARIQ(5)»BMTMIN(5) 
COMMON  BARL  TH( 5 > » BECOW <6 ) , BEDW < 1 0 ) » 8S IB AR ( 5 ) > B SSNDS > BUC AP 
COMMON  CACDW0,CAPML0(5>,CAPMQ(5),CAPMR,CAPST0(5) 

COMMON  CPAGV,CPBPK(t),CPBSCK(10)»CPRPK(10)»CPRSCK(6)»CSCDW0 
COMMON  DDFAC(10).DOPKC(10),DOPKS(10),DDRKAA(10),DDRKBA(10) 

COMMON  DDRSA(10),0DSPA(10),DLIA,D1T(2,3),D2T(2,3) 

COMMON  ESLR,ESRQI5),ENAC0TI4),ENACDS<10) 

COMMON  FAACA<5),FFACA(5),FFACE<5),FACOB(5,2),FHSK<2) 

COMMON  FM3(6),FPPLl,FPPL2»FSTAO(5),FSTGAQ<5) 

COMMON  HRMAAW,HRMASW,HRMURG,HRTAAW,HRTASW,HRTURG 

COMMON  IAA0A,IAAED,1ABAF>IABAW,IABAEQ,IATKRT(5),IATRIA»ICTL(5) 

COMMON  IDDAC,IDDAS,IKRA$(5)>IPIADA»IPLA6D»IRSUBA(5),ISSBR,ISSR8 

COMMON  I  P  P  A  F  >  IPPAW 
COMMON  LGTHMP(6),ITFMP(6) 

COMMON  MAXTP,MIMP 

COMMON  NABSAM,NKRB»NKRS,NKBDPL,NLOC,NPPSAM 

COMMON  PARK, PASS(2),PBDRN(2),PBDRS(2),PBKRN(2),PBKRS(2) 

COMMON  PDIN,PKAT1,PK0FI,PKASW»PKIIN»PKIN,PKPIDT(4)>PKPL1,PKPL2 
COMMON  PKSST (4  )  , PRSMI 10, 5, 6) , PRWLNQ ( 5  ) 

COMMON  PLAEDA(2),PLAEDE(2),PLAEED,PLBLBD(2,5),PLCA(5) 

COMMON  PLFDLL(5,5,2),PLPAJ0(3),PLPDDA(2),PLPDDE(2)»PLPDED 
COMMON  PLPKAD(3,2),PLPKDA(2,3),PLPKDE(2),PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RP(2,5),PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2)»PPPKAS(2)>PPAVLS(2»5)»PPANMS(2) 

COMMON  PPPDSA(2)iPPFSVS(2),PPTSCS(2),PPCAL(5) 

COMMON  PPPDAS(2),PPFASS(2),PPAE3S(2),PPFASM(2) 

COMMON  RACCDW(10),RACPCK(10),RECDW(10),REDW(6),RARBAB(3) 

COMMON  RS(10,5),RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),SBFRFC,SBFRSA(5),S8FRSC 
COMMON  S3PBDF,SBPBDS,SBP8KF,SBP3KS,SBPFD8,S8PFKB,SBPSDB,SBPSKB 
COMMON  SMALLR,SSOAAW,SSDASW,SSDURG,STARQ(5),STSALV,SUBSOR,SHEL 
COMMON  SSBACP(9),SSCFA,SSFRSV(8,5),SSPBDR,SSPBKR,SSPRDB,SSPRKB 
COMMON  SSFBAK(2,9),SSPRKC 

COMMON  TAB10T(20»4),TAB12{20),TAB13T(20»4)»TCAP,THSCAQ(5) 

COMMON  THSCT0(5),TPAS,TPS,T1,T2,T3,T4 
COMMON  UBAEW,U8AEWl»UBASW,U3ASWL 
COMMON  VBT { 3  )  , VCAP, VI 

COMMON  WFMAAW,WFMASW,WFMPLT,WFMURG,WFTAAW,WFTASW,WFTPLT,WFTURG 
COMMON  WRLNDQI 5 ) , WTFCBO, «VSIZ, WFPPAS ( 2, 5 ) , KFTFL ( 5) 

COMMON  XAEW, XAEWL0(5  l  , XAS W , XASWLQ < 5 ),XATTCK, XEAAW, XE ASWA , XE ASWN 
COMMON  XFGHTR,XPLAT,XURGS,XIA(5) ,XIE(5),XNRAB 
COMMON  ZIAMPF,ZMPCAP,ZMPDLX,  ZMPATK3  )  ,  ZMPESC,  ZMPSTG 
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SUBROUTINE  C  T  F  MOD 


C*  COMDECK  COMCTF 

COMMON  /COMCTF/  XE  F  FC  M  >  FGH  T  R I ,  A  TTC  K  I  *  XCAPST 
C* 

C 

C  *  COMDECK  COMGA 

COMMON/ CONG A/  NTPSLA,BMR(2,3),ESC<2> 

C  * 

c* 

c*  COMDECK  COMSOR 

C  UMMQN/C OMSGR /  F TSOR U> A TSORU 
C* 

C* 

DIMENSION  AT(3>,AT1(3),ATKT(3),FMRBT<4) 

DIMENSION  TAB10(20),TAB13(20) 

C* 

C  -  GENERAL  FORMATS 

WRITE (6*1) 

WRITE (6, 5001 ) 

1  FORM  A  T  (  5  1HO - ) 

5001  FORMAT (  2  4H  START  SUBROUTINE  CTFMOD) 

C* 

C 

10  F0RMAT(8F10. 2 ) 

12  F0RMAT(8F10.4) 

C 

C  -  FORMATS  FOR  DISPLAYING  PARAMETERS 


120 

FORMAT ( 20H0 

UBAEWL 

UBAEW 

) 

130 

F  OR  M  A  T ( 20H0 

AEWD 

STAR 

) 

140 

F  OR  MA  T ( 5  OHO 

CAPML 

C  A  PM 

3UCAP 

D  L  I A 

WVSIZ 

) 

160 

FORMAT { 40H0 

T  1 

T  2 

T  3 

T  4  1 

> 

170 

FORMAT ( 4QH  0 

V  C  A  P 

CAPMR 

TC  AP 

CAPSTAR  ] 

> 

200 

FORMATt 10H0 

BARL 

) 

210 

FORMAT { 20H0 

UB  A  $  WL 

BARE AL 

) 

220 

F  OR  MA  T ( 20H0 

UBASW 

B  AREA 

) 

230 

FORMAT (60H0 

ASWF 

PKASW 

ST 

PD  IN 

PKIN 

ZLAM 

X  PF  ) 

240 

F  OR  M A  T { 4  OHO 

P  K  I  I  N 

ESR 

ESLR 

SUBSOR  ! 

I 

250 

FORMAT ( 60HQ 

PKSS 

FPPL1 

PKPL1 

PKPL2 

PKPLD 

F  P  PL 

X  2  ) 

260 

FORM  AT (  10H0 

TPS 

) 

290 

FOR  M AT ( 20H0 

ZMPC AP 

ZMPDLI 

) 

300 

FCRMAT( 20H0 

STG 

ZMPSTG 

) 

305 

FORMAT ( 10H0 

STSALV 

) 

C* 

A  T  T  =  0  . 

DO  30  K=1,NKR8 
A  T ( K  )  *  BMR ( 1 >  K )  +  BMR(2,K) 

ATT  *  ATT  +  A  T  C  K ) 

30  CONTINUE 

PRINT  32,  ATT 
32  FORMAT (  5H  ATT=,F10.4) 

IF(ATT,LE.O.  .AND.  I  R  S  U  B  A  (  L  )  .  E  Q  .  2  )  GO  TO  20.00 
A  E  SC  =  ESC(l)  ♦  E  SC ( 2  ) 

C  * 

8 AREAL=BARELO ( L ) 
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BAREA  =BAREAQ(L) 

8ARL  =  8  AR  L  Q ( L  ) 

ESR  *  E  S  R  Q  (  L ) 

STAR  -STARQ(L) 

CAPM  =  C  A  PMG ( L ) 

CAPML  =  C  APMLG  <  L ) 

CAPST  *C  A  PS  T  0 ( L ) 

XASWL  -XASWLQ(L) 

XAEWL  =XAEWLQ(L) 

THS  E  C  A  =  THSC  AQ ( L ) 

THSECT*THSCTQ(L ) 

WRRLND«V«RLNDQ ( L ) 

PRWLND*PRWLNO(L) 

C* 

ST  =  RS(1,L  )  *F  S  T  A  Q { L ) 

S  TG  *  RS  <  2,L  )*FSTGAQ ( L ) 

IFUTT.LE.O.  .AND.  IR  SUB  A  (L  ) .  EO  .  1  )  STG  «  0. 
C 

C  -  PRINT  PARAMETERS 

C 

PRINT  120 

PRINT  12,  UBAEWL,U5AEW 
C 

PRINT  130 

PR I  NT  1 0,  AEWD,STAR 
C 

PRINT  140 

PRINT10, CAPML, CAPM,QUCAP,DLIA,WVSIZ 
C 

PRINT  160 

PRINT  10,  T1,T2,T3,T4 

C 

PRINT  170 

PRINT  10,  VCAP,CAPMR, TCAP, CAPST 
C 

PRINT200 
PRINT  10,  BARL 
C 

PRINT  210 

PRINT12,UBASWL,3AREAL 

C 

PRINT  220 

PRINT12,UBASW,BAREA 

C 

PRINT  230 

PRINT12,  ASWF,  PKASW,  ST,  PDIN,  PKIN,ZLAMPF 
C 

PRINT  240 

PRINT  10,  PK I  IN,  ESR,  E  SLR ,  SUBSOR 
C 

PRINT  260 
PRINT  10, TPS 
C 

PRINT  290 

PPINT  10,  ZMPC AP, ZMPDL I 

C 

PRINT  300 
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5L3ROUTINE  CTFMOD 


PRINT10#STG#  ZMPSTG 


PRINT  305 
PRINT10,STSALV 


— 

FORMATS 

FOR 

DISPLAYING 

PARAMETERS  OF 

TABLES 

310 

330 

FORMAT ( 
FORMAT ( 

7H0 

7H0 

TAB10) 

TAB13) 

— 

FORMATS 

FOR 

DISPLAYING 

SELECTED 

BLUE 

RESOURCES 

410 

420 

FORMA  T ( 4  OHO 
FORMATdOHO 

X  ASW 

XEASWA 

X  A  E  W 

X  E  AS  W  N 

XASWL 
X  E  A  AW 

XAEWL 

) 

430  F0RMATU0H0  XPLAT  ) 


C 

PRINT  410 

PRINT 10, XASW#XAEW,XASWL,XAEWL 

C 

PRINT  420 

PRINT  10, XEASWA,XEA$WN,XEAAW 

C 


PRINT  430 
PRINT10, XPLAT 
C 

C  -  FORMATS  FOR  DISPLAYING  COMPUTED  VARIABLES 


510 

FORMAT ( 14H 

XAEWSTA 

F10.2) 

520 

FORMAT ( 14H 

XC APSTA 

F10.2 ) 

530 

FORMAT { 14H 

XZ 

F  1 0  •  2  ) 

540 

FORMAT (  7H 

XTB,7X,F10.2, 71H 

XTB 

CAN 

BE 

NEGATIVE. 

IF 

SO# 

FUNCT 

11  WILL  SET 

APPROPRIATE 

VALUES  TO 

0.  ! 

\ 

550 

FORMAT! 14H 

XWB 

F10.2) 

560 

FORMAT ( 14H 

XDL  I 

F10.2 ) 

5  00 

FORMAT ( 14H 

XDLIENG 

F 1 0  *  2  ) 

600 

F  nR  M  A  T  (  7H 

XL  ,7X,F10.2,71H 

XL 

CAN 

BE 

NEGATIVE . 

IF 

SO# 

FUNCT 

13  WILL  SET 

APPROPRIATE 

VALUES  TO 

0. 3 

\ 

610 

FORMAT! 14H 

XTHETST 

F10.2) 

620 

FORMAT  !  14H 

XC APENG 

F10.2  ) 

670 

FORMAT! 14H 

XATS1 

F10.2) 

600 

FORMAT! 14H 

XATS2 

F10.2) 

690 

FORMAT! 14H 

XMPPLAT 

F10.2  ) 

700 

FORMAT! 14H 

XATS3 

F10.2) 

710 

FORMAT ( 1 4H 

XATS4 

F10.2) 

720 

FORMAT! 14H 

X  P  S  A 

F10.2  ) 

730 

FORMAT! 14H 

XD 

F10.2) 

740 

FORMAT! 14H 

XPDASW 

F10.2  ) 

750 

F  OR  M  A  T  (  1  4H 

XSURS1 

F10.2) 

7  55 

FORMAT! 14H 

XSTG1 

F10.2) 

760 

FORMAT! 14H 

XSURS2 

F10.2) 

770 

FORMAT ( 14H 

XTOTE 

F10.2 ) 

780 

FORMAT ( 14H 

XSURS3 

F10.2) 

790 

F0RMAT(14H 

XSALVS 

F10.2) 

800 

FORMAT! 14H 

XPST 

F10.2) 

840 

FORMAT! 14H 

XEFFCM 

F10.2) 

C 

C*  START  ASW  PORTION  OF  CTFMOD 


SUUK0UT1NE  CTFMID 


c 

XD  =  U./BAPL)  *  ( BARE AL  +  UB ASWL*XASWL  +  B A R F A  *  UB A S U *  X  A S W * XF F F C M J 
PRINT  730,  XO 
C 

X  p  D  A  S  W  *  1.  -  EXP (-ASWF  +  XO) 

PRINT  740,  XPDASW 
C 

XSURS1  ■  ( 1 .-XPCASW*PK ASW)  ♦  $T 
PRINT  750,  XSURS1 
C 

XSTG1-(1.-XPDA$W+PKASW)*ST& 

PRINT  755, XSTG1 
C 

XSURS2  *  XSURS1+<1.-P0IN*PKIN) 

X  +  PKIN  *  FUNCT5(PDIN*XSURS1-ZLAMPF+XEASWA) 

PRINT  760,  XSURS2 
C 

*  TOTE  -(XEASWA  +  XEASWN) *< 360. /THSECT) 

PRINT  770,  XTOTE 
C 

XSUPS3  «  XSURS2M1.-PKIIN  *  EUNC  T6  (  XTOT  E,  E  SLR  ,  E  SR  ,  SUB  SCR  )  ) 

PRINT  780,X$URS3 

C* 

*S(1#L)  -  R S ( 1 , L )  -  (ST-XSURS3) 

R  S ( 2 , L )  -  R  S  (  2  ,  L  )  -  (STG-XSTGl) 

PRINT  810,  RS(1,L),RS(2,L),L 

610  FORMAT (3X,9H  RS(1,L)*,F14.4,9H  R S { 2 , l  )  • , F 1 4 . 4 , 8 H  FOR  L  .,12) 

xsalvs-xsupsb+stsalv 

PRINT  790, XSAL VS 

c 

WNSHT«WFTAAW*XEAAW+WFTASV<*(XEASWA+XEASWN)+WFTPLT*XPLAT+ 

1  wfturg+xurgs 

IFtWNSHT  .IE.  0.)  WNSHT* 1 
IF { XPLAT.L  E .0. )  GO  TO  950 
XSPPLA  *  WFTPLT*XPLAT/WNSHT 
XSPPLA  *(XSALVS*XSPPLA) /XPLAT 

C 

IXSP-XSPPLA 
FIX5P«IX5P 
FR-XSPPLA  -FIXSP 
SMODP-XPLATtFR 

X  P  S  T  * ( S  MOO  P  *  FUNC12<TPS*(FIXSP+1.),TAB12) 

X  +  ( XPLAT-SMOOP)  *  FUNC12<FIXSP*TPS,TAB12)  )/XPLAT 
PRINT  000,  XPST 

C  + 

950  CONTINUE 
C* 

IF(ATT.GT.O.  .OR.  STG.GT.O.)  GO  TO  890 

C* 

XEFFCM  *  XEFFCM*XPST 
PRINT  840,  XEFFCM 

C  + 

PMAAW  *  0. 

IF( XEAAW.GT.O. )  GO  TO  932 
PTAAW  *  0. 

GO  TO  934 
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93?  PTAAW  =  WFTAAW*XEAAW/VNSHT 

PTAAW  *  XSALVS+TPS+PTAAW/XEAAW 
934  XEASW  *  XFASWA  f  XEASWN 
PMASW  *  0. 

IFCXEASW.GT.O.-)  GO  TO  936 
P  TA  S W  -  C  . 

GO  TO  93B 

936  PTASW  -  WFTASW+XE ASW/WNSHT 

PTASW  =  XSALVS*TP$*PTASW/XEASW 
930  P  M,  U  P  G  -  0. 

IFCXURGS.G1 .0,  )  GO  TO  940 
PTURG  *  G. 

GO  TO  942 

9 4 C.  PTURG  =  WFTURG*XURGS/WNSHT 

PTURG  *  XSAL VS*TP$+PTURG/XURGS 
942  CONTINUE 


C* 


c  + 


c  * 


SURAAW  *  ANAX1(0», (l.-PTAAW/HRTAAW) ) 
SURASW  -  AMAX1I 0. , ( l.-PTASW/HRTASW) ) 
SURUPG  *  AMAX1 < 0.  ,  <  1  .-PTURG/HR TURG )  ) 


XEAAW  =  XEAAW  *  SURAAW 
XEASWA  -  XEASWA  *  SURASW 
XEASVN  -  XEASWN  ♦  SURASW 
XURGS  -  XIRGS  *  SLIRURG 


PRINT  0  50*  PMAAW,PMASW,P MU RG, PTAAW,  PTASW, PTURG 
PRINT  860,  SURAAW, SURASW, SURURG 
PRINT  870,  XEAAW, XEASW4, XEASWN, XURGS 


GO  TO  2000 

C  + 


890  CONTINUE 

C* 


C+  END  ASW  PORTION  OF  CTFMQD 

C  + 


XAEWST  =  UBAEWl  *  XAFWl  ♦  UBAEW  +  XAEW 
PRINT  510,  XAEWST 

C 

XCAPST  =  CAPML  ♦  UBAEWL  *  XAEWl  +  CAPM  *  UBAEW+XAEW 
XFGTRA  *  AN  I  N  1 ( XFGHTR, FGHTR I+XEFFCM) 

TEMP*XC APST 
XC APST=0. 

I F ( B  UC  A  P  .GT.  0,)  XC APS T* AM  IN  1 ( TEMP, XFGTR A/9UC AP  ) 

PRINT  520,  XCAPST 

FUNCT  *  FUNCT2( XAEWST  , A F W C , S T A R , THS F C A ) 

C 


X  2  =  ,5  *  (  FUNCT  +  A  E  Wf)  *  STAR  } 

PRINT  5  30 ,  XZ 


XZ  =  (  1  . -PR  WIND  )  *  XZ  ♦  P«?WLND*AMAX1(XZ,WRPLND) 

PPINT  530,  XZ 
C  * 

00  1000  1*1 ,2 

c* 

PPINT  621,  I 

6? 1  FORMAT (22HCSTART  OF  ITERATION  I=,I2,3fcH  THROUGH  ATTRITION 


PORTION 


SUBROUTINE  CTFMOD 


1 0  F  CTFMOD) 

C 

XCAPET  *  0. 

XDLIET  *  0. 

DO  900  K  *  1 , NKR  B 
A  I  ( K )  *  6MR(1,K>  +  BMP(2,K) 

ATI (K )  *  0. 

900  ATKT(K)  «  0. 

AEST  =  A  F  SC 
AFSCKT  -  0. 

ATKTT*0. 

FGHTRK  -  0. 

FGHTRL  =  0. 

AFSCK  *  0, 

A  TK  *  0 • 

C  + 

DO  920  K«1,NKRB 
C* 

ATT  -  0. 

00  902  K  K  *  K  ,  N  K  R  8 
902  ATT  *  ATT  +  AT(KK) 

PRINT  32,  ATT 

IFtATT.LE.C.  .AND.  K.EO.l)  GO  TO  645 
IF< ATT.LE.C)  GO  TO  922 
C* 

XTB  *  X  Z  /  VB  T  (  K  )  -  ( D1T < I,K)  /VBT(K ) +  (D2T (I ,K )-SMALLP ) / VI  ) 

PRINT  540,  XTB 

C 

XW8  «  FUNCTI ( XTB, Tl, T2, T3, T  4 ) 

PRINT  550,  XWB 
C 

XDLI  «  XWB  *  WVSIZ 

XDLJ  *  AMAX1(0.0,XFGTRA-BUCAP*XCAPST~FTS0RU) 

PRINT  560,  XOLI 
PRINT  560,  XOLJ 

C 

XOLTE'N  -  AM  INI  (  XDL  J*Dl  I  A,  XOL  I  ) 

PRINT  590,  XDL  I FN 

C 

XL  «  ( VCAP/V3T(K)  )*XZ  ♦  CAPMR  -  VC  A P * { TC A P  +  ( D 1 T (I , K ) / V B T ( K )  )  ) 
PRINT  600, XL 

C 

X  THE  T  S  *  FUNCT3( XL, CAPST, D1T  (  I  ,K  )  ) 

PRINT  610, XTHETS 

C 

T  W  0  P I  «  2  .  *  3.14159265 

C 

XCAPEN  =  XCAPST  ♦  (XTHETS  /  TWOPI  )  +  ( 36C . / THS E C A ) 

XCAPEN  »  ANINl ( XCAPEN. XCAPST) 

PRINT  6  2  C ,  XCAPEN 

C 

XCAPFN  *  AMAXKO.  ,  XCAPEN-XC  APT  1  ) 

XDLIEN  =  ANAX1  (0. t X  PL  I HN-XDL I i  T ) 

XCAPET  *  XCAPET  ♦  XCAPEN 
XDLIET  *  XDLIET  +  XDLIEN 
PRINT  59C.  XOLIEN 
PRINT  620,  XCAPEN 
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CALL  A  T  R  T  I  A ( XDLIEN,XCAPEN,AES7  ,ATT,ZMPDLI,  ZMPCAP,ZMPESC,PKAT1,  PKDF 
11,FGHTRL,AE$CK,ATK,IATRIA> 

C* 

FGHTRK  *  FGHTRK  ♦  FGHTRl 

DO  904  KK*K,NKRB 

TAT-K  *  A  TK*  (  AT  (  KK  )  /ATT) 

A  T ( KK  >  =  AT(KK)  -  TATK 

ATKTCKK)  *  ATKT(KK)  +  TATK 
PRINT  623,  KK,TATK 

623  FORMAT (PH  FUR  KK*,I2,  8H,  TATK«,F10.4) 

904  CONTINUE 

PRINT  624  ,  (J , ATK T ( J  )  » J* 1, NKRR  ) 

624  FORK  AT ( 7 { 6H  A TK T (  , I l , 2H  )  « , F  10 . 4  )  ) 

PRINT  625,  (J,AT(J)#J*1,NKRB) 

625  F  OR  M  A  T  (  7  (  6H  AT(,I1,2H)*,F10.4)) 

ATI  (K  )  *  AT  t K  ) 

ATKTT  -  ATKTT  +  ATKT(K) 

PRINT  630,  K,AT1(K),K, ATKTT 

630  F  OP  M  A  T ( 8  H  FOR  K«,I2,10H,  A T 1 ( K ) * , F 1 0 • 4 , 2 3H  —  SO  FAR  (THROUGH  K 
1«,I2,8H)  ATKTT*, F10*4) 

AFSCKT  -  AFSCKT  +  A  F  SC  K 

AEST*  AMAX1(  0.  ,  AE  S  T-AESC  K-XDL  I  E  N-XC  A  PEN)* 

PRINT  631,  AEST,AESCKT 

631  FORMAT ( 10 X, 10H  AEST=,F10.4,25X,8H  AFSCKT*, F10. 4) 

PRINT  632,  FGHTRL, FGHTRK 

63?  FORMAT ( 10X, 10H  FGHTR L M F 10 • 4 , 75 X , 8H  F GHT R K * , F 1 0 . 4 ) 

C* 

920  CONTINUE 
922  CONTINUE 

C* 

AESCK  -  AFSCKT 
PRINT  640,  AESCK 
640  F OR  M  A T ( 0H  A E S CK • , F 1 0 . 4 ) 

645  CONTINUE 

C* 

I  F (  I  •  E  0  •  2  )  GO  TO  1000 

C* 

PRINT  650 

650  FORMAT ( 36H0DISPLAY  RESULTS  OF  ASM-VS-SHIP  BATTLE) 

C* 

XATST  «  0, 

00  924  K  *  1 , NKRB 

924  XATST  -  XATST  ♦  A T 1 ( K  )  * ZM P A T T ( K ) 

XATS1  *  XATST  ♦  ZMPSTG+XSTG1 
PRINT  670,  XATS1 

C  * 

IF ( XATS1.1E .0. )  XATS1  »  I. 

PKPLO  -  0. 

PKSS  =  0. 

ENACD  -  0. 

00  926  ITAR-1#20 
TABLC(ITAB)  *  0. 

TAR13C  ITAB)  =  0. 

926  CONTINUE 

00  92  7  K- I, NKRB 

FV°BT  (K)  «  (AT1(K)  +  ZMPA7T(K)),^M'S1 
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927  CONTINUE 

NKPBP1  -  NKR8+1 

FMPBT (NKRBP1 )  *  Z M P S TG* X S T G 1 / X  A T S 1 
DO  930  K*l,NKRBP.l 

PKPLD  *  PKPLD  +  PKPLDT(K)*FMRBT(K) 

PKSS  -  PKSS  +  PKSST(K)*FMRBT(K) 

ENACD-ENACD+  E N AC DT ( K ) *FMRB T ( K ) 

DO  923  ITAB*1*20 

TAFIO(ITAB)  -  TABIO(ITAB)  ♦  TAPlOTt  ITAB,K)*FMRBT(K) 

TABI3UTAB)  -  TAB  13  (  ITA9  )  ♦  T  A  R 13  T  (  I  T  A  e  *  K  )  *  F  M  R  B  T  (  K  ) 

929  CONTINUE 

930  CONTINUE ' 

C* 

PRINT  675*  (K*FMRBT{K),K-1*NKR9) 

675  F0RNAT(6(7H  F M R B T ( *  1 1 , 2 H ) - * F 1 0 • 4 )  ) 

PRINT  676*  FMRBT(NKRBPl) 

676  FORMAT ( 15H  F MR B T ( NK R B ♦ 1 ) *  * F 1C . A ) 

PRINT  250 

PRINT  10*  PKSS > FPPL  1* PKPL1* PKPL 2* PKPLD* FPPL2 
PRINT  3 1 C 

PRINT  12* (TA910(ITAB)*ITAB*1*20) 

PRINT  330 

PRINT  12*  (TAB13UTAB)*  ITAB«1*20) 

C 

XATS2-  ( l.-PKSS )*XATS1  +  PKSS*FUNCT5(XATS1-FUNCT9( XEAAW*  TAB10) ) 
PRINT  680*  XATS2 
C 

WNSHN  ■  WFMAAW*XE  AAW  +  WFMASWM XF  ASWA+XEASWN  )+WFMPLT*XPLAT* 

1  WFMURG*XURGS 

IF {  W  N  S  H  M  .LE.  0.)  WNSHM-1 
IFtXPLAT.LE.O. )  GO  TO  960 
XMPPLA  *  WFMPLT+XPLAT  /  W  N  S  H  M 
XMPPLA  «(XATS2*XMPPLA)/XPLAT 
PRINT  690*  XMPPLA 
C 

XATS3  *  ( I . -PKPL1  )  *XNPPLA  ♦  PK P L 1  * FUNC T 5 ( XM P P L A  -FPPL1) 

XATS3  =  X  A  TS  3*  XE  F  FCM  +  XMPPLA* ( l.-XEFFCM) 

PRINT  70C  *  X AT  53 

C 

X  A  T  S  4  -  XATS3  *(1,-PKPLD)*( 1.-PKPL2) 

X  +(1,-PKPLD)*PKPL2*  FUNC11(XATS3*FPPL2) 

XATS4  *  XATS4*XEFFCM  *  X A T S 3 ♦ ( 1 . -X E F FC M ) 

PRINT  710*  X  A  T  S  4 

C* 

TIACFT  *  ATTCKI  ♦  FGHTRI 
IF(TIACFT*LE*0. )  GO  TO  958 
PIACD  *  ENA  CD/ TIACFT 
R  A  C  D  *  !•-( l.-PIACDJ**XATS4 
FDMCV  -  ( XFGHTR-XCAPST-XDL I ET ) * F  AC  0 
AOMCV  *  XATTCK+FACD 
XFGHTR  =  XFGHTR  -  FDMCV 
XATTCK  =  X^TTCK  -  AOMCV 
C* 

PRINT  B  4  4  *  ENACD*  PIACD *FACD 
PRINT  845  *  FDMCV*  XFGHTR 
PRINT  846*  AOMCV. XATTCK 

844  FORMAT  ( RH  E N AC D - * F  1  0 . 4 . 8 H  P  I  AC D - * F 1 0 . 4  * 8H  FACD»*F10.4) 
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9A5  FORMAT  (8H  FDMCV«,F10.4,8H  X F GHTR * , F 1 0 • 4 ) 

846  FORMAT  ( 8H  ADMC V - , F 1 0 . 4 , 8H  X  A T TC K « , F 1 0 . 4 ) 

95*  CONTINUE 
C 

XPSA  *  FUNC12  (  XATS4, TA813 ) 

PPINT  7  2  0, XPSA 
C 

XEFFCM  -  XEFFCM*XPSA*XPST 
PRINT  840, XEFFCM 

C 

960  CONTINUE 

C* 

IF ( XEAAW.GT  .0.  )  GO  TO  962 
PMAAW  *  0, 

P  T  A  A  W  -  0 . 

GO  TO  964 

962  PMAAW  -  WFM AAW*XE AA W/WNSHM 
PTAAW  -  WFTAAW*XE AAW/WNSHT 
PMAAW  «  (XATS2*PMAAW/XEAAW)*(1.-SSDAAW) 

PTAAW  =  XSALVS+TPS+PTAAW/XEAAW 
964  XEASW  «  XEASWA  ♦  XEASWN 

IF ( XEASW.GT.O. )  GO  TQ  966 
PMASW  *  0. 

PTASW  *  0. 

GO  TO  968 

966  PMASW  *  WFMA$W*XEASW/WN$HM 
PTASW  -  WFTASW+XEASW/WNSHT 
PMASW  *  ( XATS2*PMASW/XE ASW ) * U .-SSDASW) 

PTASW  =  XSALVS+TPS+PTASW/XEASW 

969  IFIXURGS.GT.O.)  GO  TO  970 
PMURG  -  G • 

P  TUP  G  -  0. 

GO  TO  972 

970  PMUPG  =  WFMURG+XURGS/WNSHM 
PTURG  ■  WFTURG+XURGS/WNSHT 

PMURG  *  (XATS2*PMURG/XURGS>*<1 .-SSDURG) 

PTURG  -  XSALVS+TPS+PTURG/XURGS 
972  CONTINUE 
C* 

SUPAAW  =  AMAX1(0# ,{ 1.  —  PMAAW/HRMAAW) )*AMAX1(0«, (1«— PTAAW /HRTAAW)  ) 
SURAS W*AMAXI(0*, ( 1. -PMASW/ HRMA$W) ) *  AM  A  X 1  I  0  .  ,  (1. -PTASW/ HR TASW)  ) 
SUPURG*AMAX1(0.,(1. -PMURG/ HR  MUR  G) )*AMAX1(0., (l.-PTURG/HRTURG)  ) 

:  * 

XFAAW  *  XFAAW  *  SUPAAW 
XFASWA*  XEASWA*  SURASW 
XEASWN-  XEASWN*  SURASW 
XURGS  *  XUPGS  *  SURURG 


050 

P  6  0 
870 


PPINT  850, PMAAW, PMASW, PMURG, PTAAW, PTASW, PTURG 
F  OR  M  A  T ( 8H  PMAAW, FIO. 4, 8H  PMASWfF10.4,PH 
1AW,F10.4,8H  PTASW,F10.4,8H  PTURG,F1C.4) 
PRINT  860, SURA AW, SURASW, SURURG 
FORMAT { 8H  SURAAW,F10.4,8H  SURASW, FIO. 4, PH 
PRINT  870,  XEAAW, XEASWA, XEASWN, xuRGS 
FQRMAT(ph  XEAAW,F1C.4,8H  «EASWA,F1G.4,8H 
1  G  S  ,  F  1  0 . 4  ) 


PMURG, FIO. 4, 8H 


SURURG, FIO. 4 ) 
XEASWN, FIO. 4, 8H 


C* 


PTA 


X  UR 
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1000  CONTINUE 
C* 

PRINT  1001 

1001  FORMAT ( 3BHCDISPLAY  RESULTS  OF  AIR-TC-AIR  BATTLE) 

AESC  -  A  F  SC  -  AESCK 

XFGHTR  -  XFGHTR  -  FGHTRK 

C* 

PRINT  1002,  AESC, XFGHTR 

1002  FORMAT (8H  A E SC  * , F  1  0 . 4 , eH  XFGHTR «, F 10.4 ) 

PRINT  1003,  (K,AT(K),K-1,NKRB) 

1003  FORMAT ( 5  H  A T < , I 1 , 2H > * , F 10 . 4 ) 

C  * 

T0T50R  -  XOLIET 

I F ( TGTSCR •  L  E  •  0  .  )  GO  TO  1004 

TMPSOR  -  XOLIET  -  C FGHTRK* ( XCL  IET / TOTSQR ) ) 

FTSORU  =  FTSORU  +  T M P S 0 R ♦ P F F C N F 

1004  CONTINUE 

PRINT  1005,  FTSORU, ATSCRU 

1005  FORMAT (  9H  F T S OR U - , F 1 0 . 4 , 9H  A T S OR U- , F 1 0 • 4 ) 

C* 

DO  1006  KRE  *1, NKRB 

TOT  *  BMR ( 1, KRB )  +  BMP( 2,KRB) 

IF  (JOT.LE.O. )  TOT-1, 

00  1 C  06  1-1,2 

BMK  *  ATKT (  K  R  B  )  *8  MR ( I,KRB)/TOT 

ATA0T(  I, KRB)  «  ATABTClfKRB)  ♦  BMP (  I , KRB  )  -  BMK 

1006  CONTINUE 

TOT  *  ESC ( 1  )  +  ESC { 2) 

I  F ( TOT.LE.C.  )  TOT-1. 

DO  1010  1=1,2 

ESK  -  AESCK*ESC(I)/TOT 

A  E  SC  A  3 (  I  )  -  AESCAB(I)  ♦  ESC(I)-ESK 

1010  CONTINUE 
C  + 

DO  1012  KRB-1, NKRB 

PRINT  1011, ATABT(1,KRB),ATABT(?, KRB), KRB 

1011  FnPMAT(14H  ATABT(1,KRB)-,F1G.4,14H  A T A B T ( 2 , KR B ) - , F 1 0 . 4 , 1 OH  FOR  KRB 

1  «  ,  I  2  ) 

1012  CONTINUE 

PRINT  1013,AESCAB(1),AFSCAB(2) 

1013  FORMAT  { 14H  AE$CAR(1)-,F10.4,14H  AESCAB(2)*,F10.4) 

C* 

2000  CONTINUE 
C 

WRITE (6,5990 )  XEFFCM 

5990  FQRMAT(44H  RELATIVE  CARRIER  CAPABILITY  (XEFFCM)  IS  NO W , F 7 . 4 , 1H . ) 

WP  I  TE (  6, 5999  ) 

WRITE(6,2) 

5999  FOFMAT ( 25H  END  OF  SUBROUTINE  CTFMOO) 

2  FORMAT ( 51H  - ) 

C 

3000  CONTINUE 
C 

RETURN 

FNC 
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FUNCTION  FUNCT1 


C*  DECK  FUNCT1 

FUNCTION  FUNCT1  ( X , T 1, T Z, T 3 , T 4 ) 
TERM1=  ( X- T 1- T  2-T3 ) / T  4 
IF  (TERMl-O.)  10,  20,  20 
10  FUNCT1«0. 

RETURN 

20  I TE  RM 1=  TERM  1 
TERM2*  ITERM1 
FUNCT1  *  TERM2+1. 

RETURN 

END 
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C*  DECK  FUNCT2 

FUNCTION  FUNCT2( X, AEWD, STAR ,TH$EC A  ) 
X  *  X*(360./THSECA) 

I F { X  • L  E •  0.)  GO  TO  90 
DIF*AEWD-STAR 
IF (DIF  .GE.  0. )  GO  TO  5 
IF (X-2)90, 90*7 
5  I F ( X-2 )  20,20,8 

7  THETA*3. 14159265/X 
DIST=STAR*S 1S(  THETA ) 

D I F  F  *  A  E  W  D-D 1ST 

IF (OIFF ) 90, 90, 10 

8  THETA=3. 14159265/X 
DIST=STAR*SIN(THETA) 

DIFF« AEWD-DIST 

10  PROD*DIFF*( AEWD+DIST) 

TERM*(STAR-DIST)*(STAR+DIST) 

FUNC T 2= SORT (TERM) +SQRT<  PROD) 

GO  TO  100 

20  IF  C  X  .IE.  1.  )  GQ  TO  80 
PROD-DIF  +  ( AEWD  +  STAR  ) 

FUNCT2«( X-l. )*SQRT( PROD ) ♦ ( 2 .-X ) *D I F 
GO  TO  100 
80  FUNCT2*X*DIF 
GO  TO  100 
90  FUNCT2  *  0. 

100  CONTINUE 
RETURN 
END 
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C*  DOCK  FUNCT3 

FUNCTION  FUNCT3(X>CAPSTR,DI  i 
TERM1  »  ABS (CAPSTR  -Dl) 

TERM2  =  SORT  (  CAPSTR  **2  +  Dl**2) 

T  E  R  M  3  *  CAPSTR  +  Dl 
I F ( X-TER  Ml )  10,3,3 

3  IF (X-TER M2)  20,20,4 

4  IF { X-TERM3) 30,  30,40 
C 

10  FUNC  T3  =  0 • 

RETURN 

C 

20  TERM4  *  (CAPSTR  **2  +  Dl**2  -  X**2)  /  (2. *01) 

TERMS  *  (1./  CAPSTR  )  *  SORT  (  CAPSTR  **2  -  TERM4**2) 
TERM6  »  ASINITERM5) 

FUNCT3  »  2.  *  TERM6 
RETURN 
C 

30  TERM4  *  (CAPSTR  **2  +  Dl**2  -  X**2>  /  (2. *01) 

TERM5  «  (1. /CAPSTR  )  *  SORT  (CAPSTR  **2  -  TERM4**2) 
TERM6*ASIN( TERMS) 

FUNCT3  *  (  2. *3. 14159265  )  -  (  2,*  TERM 6 ) 

RETURN 

C 

40  FUNCT3  *  2.*  3.14159265 
RETURN 

C 

END 
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FUNCTION  FUNCT5 


C*  DECK  FUNCT5 

FUNCTION  FUNCT51X) 

TE  R  M*  X 

IF ( TERM-O. )  10,10,20 
10  F  UNC  T  5  =  0 . 

RETURN 

20  FUNCT5=TERM 
RETURN 
END 


FUNCTION  FUNCT6 


C*  DECK  FUNCT6 

FUNCTION  FUNCT6I X, ESLR, ESR>SUBSOR ) 

TER  Ml  =  E  SR  +  E  SLR 
IF(ESR.GT.ESLR)  GO  TO  1 
T  E  R  M  2  *0 . 

GO  TO  2 

1  CONTINUE 

TERM2*SQRT (ESR**2-ESLR**2) 

2  CONTINUE 

IF  (SUBSnR-TERMl)3#10^10 

3  I F (SU3S0R-TERM2) 20>20#30 
C 

10  FUNC  T  6=  0 . 

RETURN 

C 

20  ANGLE  1*AC0S(TERM2/ESR) 

TERM3  =  (X  *  ANGLED  /  3. 14  15  926  5 
FUNCT6*AMIN1( l.*TERM3) 

RETURN 

C 

30  TERM4s(ESR**2-ESLR**2+SU8SDR**2)/ ( 2.*ESR*SU8S0R> 
ANGLE2*AC0S(TERM4) 

TERM5«(X*ANGLE2)/3. 141592 65 
FUNCT6*AMIN1 ( 1 • # TERM5) 

RETURN 

C 

END 
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C*  DECK  FUNCT9 

FUNCTION  FUNCT9(Y,TA810> 

DIMENSION  T A 9 1 0 C  20 ) 

ITERM1=Y 
T  ERM 1* I TEPM1 
TERM2*TERM1  +  1 . 

FUNCT9..Y-TE..U,.  FUNC10(TERM2>TA810)+(TERM2-Y)  *FUNC10(TERM1>TAB1 

RETURN 

END 


FUNCTION  FUNCLO 


C*  DECK  FUNCTIO 

FUNCTION  FUNCIO(X.TABIQ) 

DIMENSION  TABlOt  20) 

I F ( X  .GE.  1. )  GO  TO  3 
FUNC10-0. 

RETURN 
3  CONTINUE 
IXL*X 
I X2*  I  Xl  +  1 
X  1  *  t  X  1 

FUNC10  -  T  A  B 1 0  (  IX1)  +  (TAB10( IX2)-TAB10(IX1) ) * ( X-X 1 ) 

RETURN 

END 
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C*  DECK  FUNCT11 

FUNCTION  FUNC11 ( X,FPP12 ) 
TERM-X-FPPL2 
I  F ( TERM-O. >10,10,20 
10  FUNC11  =0. 

RETURN 

20  PUNCH  *  TERM 
RETURN 
END 


FUNCTION  FUNC12 


C*  DECK  FUNCT12 

FUNCTION  F UNC 1 2 ( X  >  T  A  B 1 2  ) 

DIMENSION  T A B 1 2 ( 20 ) 

I F ( X-0 • ) 5, 5,8 
5  FUNC12  =1. 

RETURN 

8  I F ( X- 10  .  )10, 10,20 
10  IX1-X 

IX2=IX1+1 
X  1  =  I  X  1 

IF ( X -1 • ) 15 , 19 , 1 8 

15  FUNC12  =  1.  -(l.-TAB12(IX2)  )  * ( X- X 1 ) 

RETURN 

18  FUNC12  "JAB  12(1X1)  -  (  T AB 12 (  I  X 1 )  -  TAB 12IIX2))  *  (X-Xl) 
RETURN 

20  FUNC12  =0. 

RETURN 

END 
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C* 


c* 

c* 

c* 

c* 


DECK  DD AY 

SUBROUTINE  DDAY(L) 

DDAY  MODELS  THE  DD A Y  SHOOTOUT 
COMOECK  COM  IN  P 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

CUMMON 

COMMON 

COMMON 

COMMON 

COMMON 


NEPD(l) 

AAAEDA(2),AAAEDE(2)>AAAEED(l)>AACA>AAPAJO(2)>AAPDDA(2) 
AAPODE  (2  ),AAPDEDm  ,AAPKAD(2,2  >,  A  A  PK  DA  <  2 , 2  )  ,  A  A  PK  D  E  <  2 , 1  ) 
AAPK£D(I*2)*AASRAA(5)fAASRED*AASRFA(5)»AASRFE(5)>AASRID 
ABANM(2),ABAVIS(2),ABCAS,ABESGS(2),ABFASS(2) 
ABFSM(2),A3FV$<2>,ABPDA(2),AePKA<2),ABPSA(2,2>,ABPDS<2) 
ABPKS(2»2),ABTSC{2),ABVGSS(2),ABRSAM(2) 
AEWD,AESCAB(2),ASWF,ATABT(2,3 ) , ATTWGT, A VA I L E ( 5, 2 ) 
AINTCT^AVAILT (  5  >  2  *  3 )>AVALED(5>  2 )  >  A WRC 3 B 

BACCDW(6)*BACPCK(6)>BAQEAQ(5)>3ARELG(5),BARLG(5),BMTMIN(5) 

BARLTH(5),BECDW(6),BEDW(10),aSIBAR(5),BSSNDS,BUCAP 

CACDWO,CAPMLQ(5),CAPMQ(5),CAPMR>CAPSTQ(5) 

CPAGV,CPBPK(6)>CPBSCK(10),CPRPK(10)>CPRSCK{6),CSCDW0 

DDFAC (10)»DDPKC (10  ) *  DDP K 3 ( IO)jDDRKAA(IO) #  DD RK B  A ( 10) 
DDRSA(10)>DDSPA(10) #DLIA>D1T {  2  j  3  )  >  D2 T ( 2  #  3  ) 
ESLR>ESRQ(5),ENACDT(4)>ENACDS(10) 

FAACA(5) ,FFACA(5),FFACE (5 ) ,FAC0B(5,2),FHSK(2) 

FM3 (6)>FPPL1#FPPL2>F$TAQ( 5) >FSTGA0(5) 

HR  MA AW, HRMASW , HR  MUR G, HRTA AW, HR  TA$ W» HRTURG 
I A AD A# I AAED* I ABAF* IA8AW# I ABAEQ# IATKRT( 5 ) , IATRI A, ICTL { 5 ) 

IDDAC,IDDAS,IKRAS(5),IPLADA,IPLAED,IRSUBA(5),ISSBR,IS$RB 

IPPAF,  IPPAW 
LGTHMP(6),LTFMP(6) 

MAXTPjMIMP 

NABSAM>NKR8>NKRS>NKBDPL>NLQC>NPPSAM 
PARK,PASS<2),PBDRN(2),PBDRS(2) ,PBKRN(2  ),PBKRS (2) 

PDIN>  PKA  T1 j  PKDF l j PK AS  to#  PKI IN  »  PKIN#  PKPLDT ( 4) >  PKPL1*PKPL2 
PKSSTm,PSSM(10,5,6),PRWLNQ<5> 
PLAEDA(2),PLAEDE(2)#PLAEED,PLBLBD(2#5)tPLCA(5) 
PLFDLL{5,5#2)#PLPAJO(3),PLPDDA(2)#PLPDOE(2)#PLPDED 

PLPKAD(3#2># PL  PKDA( Z, 3 J  #  PlPKDE ( 2  )  , PL PKE D ( 2 ) 

PAFCNF,PFFCNF,PPS0RR(2,5),PPPSAS(2,2),PPPKSA(2,2) 
PPR$AM(2)*PPAV5S(2)#PPPKAS(2)#  PPAVLS(2,5),PPANMS(2> 
PPPDSA(2),PPF$VS(2),PPTSCS(2)#PPCAL(5) 

PPPDAS(2) jPPFASS (2)#PPAEGS (2) 9  PPFASMI2) 
RACCDW(10),RACPCK(I0),RECDW<10),REDW(6),RAR8AB(3) 

R$  ( 10#  5  >  #RSIB AR ( 5  ) 

SBFBCF,SBFBC5#SBFRFA{5)#$8FRFC#S9FRSA(5)#SBFRSC 

SBPbDF#SBPBDS#SBPBKF,SBP3KS#S8PFD9#SBPFKB#S6PSDB#SBPSKB 

$  M  A  L  L  R  #  S  SD  AA  to  #  S  S  D  AS  W#  5  S  D  URG  #  ST  ARQ( 5 ) # S  T  S  A  L  V  #  5UBS0R  # SHEL 

S$RACR<8)#SSCFA,$SFRSV{P»5)#SSPBDR#SSPBKR,$SPRDB#$SPRKB 

SSFBAK(2#8),SSPRKC 

TAB10T(20#4),TAB12(20),TAB13T<20,4),TCAP,THSCAQ(5) 

THSCTQ(5)#TPAS#TPS#T1#T2#T3,T4 

UBAEW#UBAEWL#UBASW#U9ASWL 

VBT(3),VCAP,VI 

WFMAAW#WFMASW#WFMPLT#WFMURG#WFTAAW#WFTASW#WFTPLT#WFTURG 

toRLNDQ(5)#WTFCBO#WV$IZ#WFPPAS(2#5)#WFTFL(5) 

XAFW#  XAEWL0(5 )  #  XASW*XASWLQ(5 ) > X  AT TCK  #  XE  A  A  W  #  XEASWA#XEASWN 

XFGHrR,XPLAT,XURGS#XIA{5),XIE(5)#XNRAB 

ZLAMPF  #  ZMPCAP#ZMPDLI#  ZMPATT (3 ) #  Z M PE  SC  #  ZMPSTG 
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C *  C  OMD  ECK  COMCTF 

COMMON  /COMCTE/  X E F F C M , F GHT R I , A T TCK I , X C A P S T 
C* 

DIMENSION  RSKBA(10),R$AC(10),RSA$(10),RSKAA(10>,RSNEW(10},BSK(5) 

SURV2<A,T,P)»T*<1.-<<A/T)-AINT(A/T>)*P)*<<1.-P>**INT(A/T)) 

WRITEC6#1) 

WRITE  (  6  >  201) 

I  F  OR  MAT  (  5 1H  0 - - 

201  FORMAT ( 24H  START  SUBROUTINE  DO  A  Y  ) 

WRITE (6*202)  L 

202  FORMAT ( 5  4H  RESULTS  OF  THE  DDAY  SHOOTOUT— T ASK  FOP C E  IS  IN  REGION  , 
113) 

a  s  k  ( i )  *  o . 

c 

C  RED  ATTACKING  SHIPS 
C 

DO  5  KR  S  =  1 *  NKR  S 

RSKBA(KRS) * AM  INI ( DORKB A ( KRS )»ft$(KRS>L )  ) 

RS$*RS(KRS,L)-RSKBA(KRS) 

RSA=AMIN1(RSS>DDRSA(KRS)  ) 

RSAC (KRS ) =RSA*DDFAC (KRS ) 

RSAS (KRS )=RSA-RSAC(KRS ) 

5  CONTINUE 
TC=XPLAT 

TS  =  XE  AAW+XEASWA  +  XEAS  WN+XURGS 

C 

C  COMPUTE  DEGRADATION  OF  CARRIER  CAPABILITY 

C 

ATT ” 0 . 

I F ( TC  .  E  Q.  0. )  GO  TO  20 
I F (  IDDAC  .EG.  2)  GO  TO  15 
P  R  OD  *  1  • 

DO  11  KRS*1#NKRS 
SHOTS=RSAC(KRS)*DO$PA(KRS) 

ATT= ATT+SHOTS 

IF (SHOTS  .EO.  0. )  GO  TO  11 
TERM«DDPKC (KRS  )  /AMAX1 ( 1. ,TC  ) 

X  I E  R  = (l.-TERM)**SHQTS 
PROD=PROD*XIER 
11  CONTINUE 
XEFFCM«PROD 
GO  TO  20 

15  A  T  T  =  0 . 

S  UM  =  0 • 

DO  16  KR  S  *  1 #  NKRS 
SHOTS'RSAC (KRS)^DDSPA(KRS) 

A  TT  =  A  TT  +  SHOTS 

SUM  =  3UM  +  SH0TS*DDPKC (KRS  ) 

16  CONTINUE 
AVPK«SUM/ATT 

IF (ATT  .LE .  TC )  GO  TO  17 
SURV=$URV?(ATT, TC/AVPK) 

GO  TO  18 

17  SURV*TC-ATT*AVPK 

18  YEFFCM*SUR V/TC 
20  CONTINUE 

CTT  =  ATT 
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C  COMPUTE  ATTRITION  TO  OTHER  BLUE  SHIPS 
C 

I F { TS  .LE.  .0001)  GO  TO  31 
IF (  IODAS  .EQ.  2)  GO  TO  25 
P  R  00  =  1 . 

DO  21  KRS  =  1,»NKRS 
SHOTS*RSAS (KRS )*DDSPA(KRS) 

I F ( SHOT  S  .EQ.  0.)  GO  TO  21 
TERM*DOPKS(KRS ) /AMAX1 (1. ,TS ) 

X  I  E  R  = ( l.-TERM)**SHOTS 
PR0D«PR0D*XIER 
21  CONTINUE 

TSK*TS*(1«— PROD) 

GO  TO  30 

25  A  TT  =  0 . 

S  UM  *  0  . 

DO  26  KRS*1,NKRS 
SHOTS3RSAS (KRS ) *DDSPA (KRS ) 

ATT  =  ATT  +  SHOTS 
SUM*SUM+SHOTS*DDPKS<KRS ) 

26  CONTINUE 
AVPK=SUM/ATT 

IF (ATT  .LE.  TS)  GO  TO  28 
TSK=TS-SUR V2 ( ATT, TS , AVPK ) 

GO  TO  30 
2  9  TSK«AVPK*ATT 

30  CONTINUE 
FBSK=TSK/TS 
GO  TO  32 

31  F  B  S  K  3  0 . 

32  CONTINUE 

B  SK ( 2  )  3  XEAAW*FBSK 
BSM3)  =  XEA$WA*FBSK 
B  S  K  {  4  )  *XEASV*N*F9SK 
B  SK  (  5  )  *  XURG  S  *F  3  SK 
C 

C  RED  SHIPS  KILLED  AFTER  ATTACK  ON  TASK  FORCE 

C 

00  35  KR$*1,NKRS 

RSS*R$(KRS,L)-RSKBA(KR$) 

RSKAA(KRS)*AMIN1(D0RKAA(KRS),RS$) 

RSNEW (KRS ) *RSS-RSKAA(KRS ) 

35  CONTINUE 
C 

C  COMPUTE  ATTRITION  TO  AIRCRAFT  ON  CARRIERS 
C 

I  F ( XPLAT  . EQ.  0.  )  GO  TO  46 
ENACD  *  0. 

PIACD  *  0. 

FACD  =  0. 

FDMCV  *  0. 

ADMCV  *  0. 

TIACFT  =  ATTCKI  ♦  FGHTRI 
IFtTIACFT.LE.O.  )  GO  TO  46 
ATT  =  CTT  -  R5AC(1)*DDSPA(1) 

I  F ( ATT.LE.O.  )  GO  TO  46 
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FRAC  =  RSAC(2)*QDSPA(2)/ATT 
NKRBP1  *  NKRB+1 
ENACD  *  ENAC0KNKRBP1  )*FRAC 
DO  42  KRS=3,NKRS 

FRAC  =  RS AC (KRS )*DD$PA (KRS ) / ATT 

ENACD  -  ENACD  +  EN AC DS ( KRS ) *F RAC 
42  CONTINUE 
44  CONTINUE 

PIACD  =  ENACD/TIACFT 
PIACD  *  AMINHO. 9999, PIACD) 

F  AC  D  -  l.-(l.-PIACD)**ATT 
FDMCV  *  XFGHTR*F ACD 
ADMCV  =  XATTCK*FACD 
XFGHTR  *  XFGHTR  -  FDMCV 
XATTCK  «  XATTCK  -  ADMCV 
46  CONTINUE 
C 

C  OUTPUT  RESULTS,  UPDATING  QUANTITIES  AS  NECESSARY 
C 

WRITE (6,240)  (  KR S , KR S « 1 , NKR S ) 

WRITE  (6,241  )  (RS (KRS,L ) ,KRS  =  1,NKRS) 

WRITE  (6,242  )  ( RSKB A ( KRS  )  ,KRS*  1, NKRS ) 

WRITE (6,243)  (  R $  AC ( KR S  )  , KR S *  1 , NKR S  ) 

WP ITE (6,244 )  (  RSAS(KRS),KRS-1,NKRS) 

WRITE (6,245  )  (RSKAA (KRS  ),KRS  =  1, NKRS) 

WRITE (6, 24  6)  ( RS NEW < KRS )# KR S « 1# NKRS ) 

240  FORMAT ( 1 7H0K I ND  OF  RED  SHI P , 24X , 1 01 8 ) 

241  FORMAT (2  8H  INITIAL  RED  SHIPS  IN  R E G I  ON , 1 3 X , 10F 8 • 3  ) 

242  FORMAT ( 4 1H  SHIPS  KILLED  BEFORE  ATTACK  ON  TASK  FORCE  ,1OF0.3) 

243  FORMAT (2 5H  SHIPS  ATTACKING  C ARR I E R S , 1 6 X , 1  OF  8 . 3 ) 

244  FORMAT ( 3  3H  SHIPS  ATTACKING  OTHER  BLUE  SHIPS,  8X,10F8.3) 

245  F  OR  M  A  T ( 4 1H  SHIPS  KILLED  AFTER  ATTACK  ON  TASK  FORCE  ,10F8.3) 

245  F  OR  M A  T ( 30H  RESULTANT  RED  SHIPS  IN  REGION# 11X, 10F8 . 3 ) 

DO  48  K  R  S  *  1 >  NKR  S 
R  S ( K  R  S , L  )*RSNEW(KRS) 

48  CONTINUE 

WRITE (6,250) 

WRITE (6,249) 

WRITE  (6, 251  )  XPLAT ,XEAAW, XEASWA, XEASWN, XURGS 
WRITE  (6, 252  )  ( BS K ( I ) # I* I #  5 ) 

XEAAW  =  X  E  A  A  W  -QSK(2) 

XE ASW A«XEA$ WA-BSK ( 3 ) 

XEASWN«XEASWN-BSK(4) 

XURGS  s  X  URGS  -33K(5) 

WRITE (6, 25 3)  XPLAT, XEAAW, XEASWA, XEASWN, XURGS 

249  F0RMAH1H+,  17HKINQ  OF  BLUE  SHIP  ) 

IF ( XPLAT.  GT.O.  )  WRITE(  6,254  )  XEFFCM 

250  FORMAT ( 1H0, 43X, 37HXPLAT  XEAAW  XEASWA  XEASWN  XURGS  ) 

251  F  OR  M A  T ( 29H  INITIAL  BLUE  SHIPS  IN  R E G I  ON , 1 2X , 5 F 3 . 3  ) 

252  FORMAT ( 1 8H  BLUE  SHIPS  KILLED, 23X, 5F8 • 3  ) 

25  3  F  OR  M A  T ( 3 1H  RESULTANT  BLUE  SHIPS  IN  R E G I  ON , 10 X , 5F 8 • 3 ) 

254  FOR  MAT ( 54H  RESULTANT  RELATIVE  CARRIER  CAPABILITY  (XEFFCM)  EQUALS, 
1F8.4, IH. ) 

I F ( XPLAT  .EG.  0. )  GO  TO  99 
PRINT  284,  ENACD, PIACD, FACD 
PRINT  285,  FDMCV, XFGHTR 
PRINT  286,  ADMCV, XATTCK 
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284  FORMAT  (8H  E N AC D * , F 10 . 4 , 8H  P I  AC  0  * , F 1 0 . 4, 8H  FACD«,F10.4) 

285  FORMAT  ( 3H  F DMC V ■ » F 1 0 . 4 , 8 H  X FGH T R * , F  1 0 . 4  ) 

286  FORMAT  ( 3H  AD MC V= , F 1 0 . 4 , 8H  XATTCK->F10.4) 

99  WRITE(6,299) 

«/RITE  (6,2) 

299  F0RMAT(25H  END  OF  SUBROUTINE  DDAY  ) 

2  F0PMATI51H  - 

RETURN 

END 
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C*  DECK  GNAATK 

SUBROUTINE  GN A ATK { L , I T P  ) 

C  * 

C*  GNAATK  GENERATES  AIR  ATTACKS  ON  THE  TASK  FORCE 
C* 

C*  COMDECK  COMINP 

COMMON  NEPDU) 

COMMON  AAAEDA(2),AAAEDE(2),AAAEED(l),AACA,AAPAJO(2),AAPDDA(2) 
COMMON  AAPDDE(2),AAPDED(1)>AAPKAD(2>2)>AAPKDA(2>2)>AAPKDE<2,1) 
COMMON  AAPKED(1>2)>AASRAA(5)#AA3RED#AASRFA<5)*AASRFE(5),AASRID 
COMMON  A  B  A  N  M  {  2  ) 9 ABAVLS (2) *  A  BC  A  $  >  ABESGS (2 ) j  AB  F  A  S  S (2 ) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2),ABPKA(2),ABPSA(2,2>,ABPDS(2) 
COMMON  ABPKS (  2  >  2  ) *  A  B  T  S  C (2) 9 ABVGSS (2) >ABRSAM(2 ) 

COMMON  AEWD>AESCAB(2),ASwF,ATART(2,3)#ATTWGT,AVAILE(5,2) 

COMMON  AINTCT, AVAILT ( 5,2>3 ), AVALEDt  3»2 ), AWRCBB 

COMMON  BACCDW{6),BACPCK(6>,BAREAQ(5),BARELO<5),BARLQ(5>,BMTMIN(5] 
COMMON  QARtTH(5),BECDW(6)*BEDW(10),BSIBAR(5),BSSNDS>BUCAP 
COMMON  CACDWO,CAPMLQ(5)*CAPMQ(5)>CAPI1R>CAPSTQ(5) 

COMMON  CPAGV*CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSCDWO 
COMMON  DDFAC(10),QDPKC(10),ODPKS(10),DDRKAA(10),DDRKBA{10) 

COMMON  DDRSA(10)#00SPA(10)>DLIA>01T(2>3)»D2T(2>3) 

COMMON  ESLR*ESRQ(5)>ENACDT (4),ENACD$(10) 

COMMON  FAACA(5)>FFACA(5),FFACE(5)>FACOB(5,2),FHSK(2) 

COMMON  FM3(6),FPPL1,FPP12,FSTAQ{5),FSTGAQ<5) 

COMMON  HRMAAW,HRMASW>HRMURG#HRTAAWf HRTASWf HRTURG 
COMMON  IAADAj  I  A AE  D  > IABAF# I AB AW  > IABAEQ# IATKRT (5 )> I  A  T  R  I  A  > ICTL ( 5) 
COMMON  IDDAC,IQDAS>IKRAS(5),IPIADA,IPLAED,IRSU8A(5),IS$BR,ISSRB 
COMMON  I  P  P  AF  >  IPPAW 
COMMON  LGTHMP(6) ,LTFMP (6) 

COMMON  MAXTPjMIMP 

COMMON  NABSAM>NKRB>NKRS*NKBOPUNLOC>NPPSAM 

COMMON  PARK>PASS(2)>PBDRN(2)>P80RS(2) 9  P  B  KR  N ( 2  )  »  P9KRS(2 ) 

COMMON  PDIN,PKAT1,PKDF1,PKASW,PKIIN# PKIN* PKPLDT < 4 ) , PKPl 1, PKP12 
COMMON  PKSST(4),PRSM(10,5,6),PPWLNQ(5) 

COMMON  P  L  A  E  D  A  ( 2) >PLAEDE (2) >PIAEED>  PIBLBD(2>5) t PICA (5) 

COMMON  PLFDLL ( 5  *  5  >  2  )  9 PLPAJO(3 ) t PLPDDA(2)>  PLPDDE ( 2) t PLPDED 
COMMON  PLPKAD( 3>2)>PLPKDA(2>3) >  P l PK DE  (2)  t  PLPKEO (2) 

COMMON  PAFCNF,PFFCNF,PPSORR(2,5),PPPSAS(2,2)iPPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2)>PPPKAS(2),PPAVLS(2>5),PPANMS(2) 

COMMON  PPPD$A(2), PPFSVS  <2 )>  PPTSCS<  2) >  PPCAU  5) 

COMMON  PPPDAS (Z  )  >PPFAS5(2) #  P  P  A  F  G  S (2) jPPFA$M(2) 

COMMON  RACCDW(10),RACPCK(10),RECDW(10),REDW<6)*RARBAB<3) 

COMMON  RS(10,5),RSIBAR<5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),$BFRFC>SBFRSA(5),SBFR$C 
COMMON  SBPBDF*SBPBDS>$BPBKF*S9P3K$>SBPFDB#SBPFKB>$BPSDBjSEPSKB 
COMMON  SMALLR,S$DAAW,$SDASW,SSDURG,STARQ(5),ST$ALV,$UBS0R,$HEL 
COMMON  SSBACR<e),SSCFA,SSFP$V(S,5),SSPBDR,SSP3KR>SSPRDB*SSPRKB 
COMMON  SSFBAK (2,8) , SSPPKC 

COMMON  TAB10T(20,4),TABI2(20),TA313T(20,4),TCAP,THSCAQ(5) 

COMMON  THSCTG(5),TPAS,TPS,T1,T2,T3,T4 
COMMON  UB  AE  W  *  UBAEWLjUBASW*  UBASWL 
COMMON  VBT(3),  s/CAP,  VI 

COMMON  WFMAAW, WFMASWj  WFMPLT, WFMURG, WFTAAW, WFTASWj  WFTPLT*  WF  TURG 
COMMON  WRLNOO(5),WTFCBO,WVSIZ,WFPPAS(2,5),WFTFL(5) 

COMMON  XAEW»XAEWLQ(5)#XASW#XASWLO(5)fXATTCK»XEAAW#XEASWA#XEASWN 
COMMON  XFGHTRfXPLAT  >XURGS>XIA(5) >  X  I E ( 5 ) >  XNR AB 
COMMON  Z  L  A  M  P  F  j  ZMPCAPjZMPDI IjZMPATT ( 3) *ZMPESC> ZMPSTG 
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C* 

C*  COMDECK  COMGA 

COMMON/C  QMG  A /  NTPSLA,BMR(2,3),ESC(2) 

C* 

C  * 

WRITE (6,1) 

WR I TE { 6 ,  201) 

1  F  OR  M  A  T  (  5  1H0 - ) 

201  FORM  AT  (  24H  START  SUBROUTINE  GNAATK) 

C* 

DO  10  I  A  3  =  1 , 2 
DQ  8  KR  B  =  1 , NKR  B 
8  BMR (  I  AB, KRB  )  =  0* 

ESC (  IAB)  *  0. 

10  CONTINUE 
BMT  =  0. 

EST  =  0. 

IF (NTPSLA. GT.O. AND. NTPSLA. LT.IATKRT(L)  )  GO  TO  40 
DO  20  I  A B  *  1 , 2 
DO  18  KR3=1, NKRB 

18  BMR( IAB,KRB)=AVAILT (L, IA8,KRB)*ATABT ( IAB, KRB) 

ESC  ( IAB  )  =AVAILE(L,  IAB)*AESCAB (IAB  ) 

20  CONTINUE 

DO  22  K  R  B  =  1  >  NKR  B 

22  BMT  =  BMT  +  B  MR ( 1 , KR  B )  +  BMR (2, KRB) 

EST  *  ESC ( 1  )  +ESC  (  2  ) 

IF(BMT.GE*BMTMIN(L) )  GO  TO  30 
WRITE (6, 281  ) 

281  FORMAT { 5 5H  INSUFFICIENT  RED  BOMBERS.  NO  AIR  ATTACK  ON  TASK  FORCE.) 
DO  26  I  A 8  *  1 , 2 
DO  24  KR  B  *  1 , NKRB 
24  BMR(IAB,KRB)  =  0. 

ESC(IAB)  =  0. 

26  CONTINUE, 

BMT  *  0. 

EST  «  0. 

NTPSL A=NTPSLA+1 
GO  TO  100 
30  NTPSLA  =  1 
GO  TO  100 

40  NTPSLA  -  NTPSLA+1 
WRITE (6, 263) 

283  F0RMAT(55H  NO  RED  AIR  ATTACK  ON  TASK  FORCE  SCHEDULED  THIS  PERIOD.) 
100  CONTINUE 

PRINT  210, BMT, EST, NTPSLA, ITP 

210  FORMAT ( 8H  BMT=,F10.4,8H  E S T = , F 1 0 . 4 , 8H  NTPSLA*, 15, 5H  ITP=,I5) 

C  * 

DO  219  1=1,2 
PRINT  212,  I 

212  FORMAT ( 33H0THE  FOLLOWING  VALUES  ARE  FOR  I  *,I2) 

PRINT  213,  ESC  (  I  ) 

213  FORMAT ( 10H  E SC ( I ) * , F 1 0 . 4  ) 

PRINT  214,  ( K , BMR ( I , K ) , K *1 , NK RB )  • 

214  FORMAT ( 7H  BMR ( I , , 1 1, 2H ) * , F 10. 4 ) 

DO  215  KR B  = 1, NKRB 

215  ATA3T ( I, KRB)  =  ATABT  (I, KRB)  -  8MR(I,KR9> 

A  E  S  C  A  3 ( I  )  =  AESCAB (  I  )  -  ESC  (  I  ) 
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PRINT  216#  I 

216  FORMAT ( 34H  AIRCRAFT  ON  GROUND  ON  AIRBASE  I  «,I2,3H  — J 
PRINT  217,  AESCA8U  ) 

217  FORMAT { 1 2H  A  E  SC  A  B  (  I  )  =  ,  F 1 0  •  4  ) 

PRINT  218,  (K,ATABT(I,K),K-1,NKR9 ) 

213  F  OR  M  A  T ( 9H  A T A B T ( I , , 1 1 , 2H  )  « , F 1 0 . 4 ) 

219  CONTINUE 

WRITE  (  6 i  299  ) 

WRITE (6,2) 

299  FORMAT (25H  END  OF  SUBROUTINE  GNAATK) 

2  FORMAT (51H  - ) 

RETURN 

END 
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SUBROUTINE  MOVRS ( LOCTF, I  TP ) 

C 

C  SUBROUTINE  MOVRS  MOVES  RED  SH I P S < S UR F AC E  SHIPS  AND  SUBMARINES) 

C  FROM  REGION  TO  (ADJACENT)  REGION  AND  ASSESSES  BARRIER  KILLS  AND 
C  COUNTERKILLS  AS  APPROPRIATE 
C 

C  MATRIX  RS(KRS,LOC)  CONTAINS  THE  NUMBER  OF  RED  SHIPS  OF  KIND  KPS  IN 
C  LOCATION  LOC 

C  LOCTF  IS  N E V  LOCATION  OF  TASK  FORCE,  AFTER  MOVTF  HAS  BEEN  EXECUTED 
C 

C*  COMDECK  CQMINP 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE(Z),AAAEED(l),AACA,AAPAJO(2),AAPDDA(2) 
COMMON  AAPDDE (2),AAPDED(1 ),AAPKAD(2,2) ,AAPKDA<2, 2) >AAPKDE (2/1) 
COMMON  AAPKED(1,2),AASRAA(5),AASRED,AASRFA(5),AASRFE(5),AASRID 
COMMON  ABANM (2 ) >  A B  A  VL  $ (2) ,ABCAS,ABE$GS  (2  ) j  ABF  A S  $ ( 2  ) 

COMMON  ABFSM(2)>ABFVS(2),ABPDA(2),ABPKA(2),ABPSA(2,2),ABPDS(2i 
COMMON  ABPKS (2,2)>ABTSC(2),ABVGS$ (2 ) ,ABRSAM(2) 

COMMON'  AEwD, AESCAB(2), ASWF* ATABT (2» 3 )# ATTWGT* AVAILEC 5,2) 

COMMON  AINTCT,AVAILT(5,2>3),AVALED(5,2)>AWRCBB 

COMMON  BACCDW(6),BACPCK(6),3AREAO(5),BARELO(5),BARLO(5),BMTMIN(5) 
COMMON  BARLTH(5),BECDW(6),BEDW(10),BSIBAR(5),8SSNDS,BUCAP 
COMMON  CACDW0,CAPMLO(5) ,  C  A  P  M  Q  ( 5) ,CAPMR#CAPSTQ( 5 ) 

COMMON  CPAGV,CPBPK(6),CPBSCKU0),CPRPK(10),CPRSCK(6),CSCDW0 
COMMON  DDFAC (10),00PKC (10) >DDPKS (10) ,DDRKAA(10) ,DDRKBA( 10) 

COMMON  DDRSA(10),DDSPA(10),DLIA,D1T(2,3),D2T(2,3) 

COMMON  ESLR,E$RG(5),ENACDT(4),ENACD$(10) 

COMMON  FAACA ( 5),FFACA(5), FFACE(5 ) ,FAC0B(5j2), FHSK(2 ) 

COMMON  FM3 (6 ),FPPL1>FPPL2,FSTAQ( 5 )>FSTGA3( 5) 

COMMON  HRMAAW,HRMA$W,HRMURG,HRTAAW, HRTASW, HRTURG 
COMMON  IAADAj IAAED, IABAF, IABAW, I  A  B  AE  Q* IATKRT ( 5), IATRIA, ICTL ( 5) 
COMMON  IDDAC, IDDAS, I KR  AS ( 5 ) , IPLADA# IPLAED, I R  SUB  A ( 5 ) , ISSBR, ISSRB 
COMMON  I P  P  AF  >  IPPAW 
COMMON  LGTHMP (6) ,LTFMP (6) 

COMMON  MAXTP,MIMP 

COMMON  NABSAM,NKRB,NKP$,NKBDPL,NLOC>NPPSAM 

COMMON  PARK,PASS(2),PB0RN(2),PBDRS(2),P3KRN(2),PBKRS(2) 

COMMON  PDIN,PKAT1*PKDF1,PKASW,PKIIN,PKIN,PKPLDT (4),PKPL1, PKPL2 
COMMON  PKSST(4),PRSN(10,5,6),PR4LNQ(5) 

COMMON  PLAEDA(2),PLAEDE(2),PLAEED,PLBLBD(2,5),PLCA(5) 

COMMON  PLFDLL(5,5,2),PLPAJ0(3),PLPDDA ( 2 ) , PL PODE ( 2 ) , PL  PD  ED 
COMMON  PLPKAD(3,2 ), P L P KD A ( 2 , 3 ) , P L PKO E  (2),PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5),PPP$A$(2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2)>PPAVSS(2),PPPKA$(2),PPAVLS(2,5),PPANM$(2) 

COMMON  PPPDSA(2),PPFSVS(2),PPTSCS(2),PPCAL(5) 

COMMON  PPPDAS (2),PPFASS (2) ,PPAEGS (2), PPFASM(2) 

COMMON  RACCDW(10)>RACPCK(10),RECDW(10),REDW(6),RAR3AB(3) 

COMMON  RS(10,5),RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),SBFRFC,SBFR5A(5),SBFRSC 
COMMON  SBP8DF,SBPBDS,SBPBKF,SBPBKS,SBPFDB,SBPFKB,SBPSDB,SBPSKB 
COMMON  SMALL  R, SSDAAW, SSDASW, SSDURG, S  T  A  R  Q  ( 5) , STSALV, SUB  S  OR /  SHEL 
COMMON  SSBACR(B),SSCFA,SSFRSV(8,5),S$PB0R,3$PBKR,SSPRDB,SSPRKB 
COMMON  SSFBAK(2,8),$SPRKC 

COMMON  TABIOT (20,4),TAR12(20), TAB13T(20>4)  ,TCAP, THSCAQ(  5) 

COMMON  TH$CTO( 5) >TPAS,TPS,TlfT2,T3*T4 
COMMON  l)BAEW,UBAEWL,UBASW,UBASWL 
COMMON  VBT(3),VCAP,VI 
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COMMON  WFMAAW>WFNASW*WFMPLT,WFMURG#WFTAAW#WFTA$W#WFTPLT,WFTURG 
COMMON  WRLNOO( 5 ) , WTFC B 0 , W V S I Z , WFPPAS ( 2, 5 ), WFTFL (5 ) 

COMMON  XAEW,XAEWLQ(5), XASW, XASWLQ ( 5 ) , X ATTCK,XEAAW> XEASWA, XE ASWN 
COMMON  XFGHTR,XPLAT,XURGS>XIA(5),  XIE ( 5  ) , XNR A0 
COMMON  ZLANPF,  ZMPC AP, ZMPDL I, ZMPATT ( 3 )  , ZMPESC, ZMPSTG 
C 
C 

DIMENSION  PEN(10),PENK(10),RSM0(10,5),RSMI(10,5),ZERa(10) 

DIMENSION  RSNEW(IO) 

DATA  ZERO  /10*0./ 

WRITE(6,1) 

WRITE<6,  501) 

1  FORMAT  (  5  1H0 - ) 

501  F  OR  MAT ( 2  4H  START  SUBROUTINE  MOVRS  ) 

IHE AD  *0 

DO  11  L0C=1,NL0C 
DO  3  KR  S  =  1 , NKR  S 
RSM0(KR$,L0C)«0. 

RSMI  (  KR  $ , L  OC ) *  0 . 

3  CONTINUE 
11  CONTINUE 

DO  10  L  OC  =  1 ,  NIOC 

I  F ( L  OC  .EG.  LOCTF)  GO  TO  10 

NEWLOC*  LOC  +  (LGCTF-LOC  )/IABS  UOCTF-LOC  ) 

IF ( N  E  WL  OC  •  EQ  •  0  )  GO  TO  10 

L0CTF1=L0CTF+1 

00  4  KR  S  =  1 , NKR  $ 

RSMDIKRS, LOC  >  *RS(KRS,LOC )*PRSM(KRS*L0C>L0CTF1) 

4  CONTINUE 

IBAR2MAXO(LOC,NEWLQC ) 

ICT  LB  =  ICTL ( IBAR)+1 
GO  TO  (6,5,6,5>,ICTLB 

5  CONTINUE 

I F { IHE AD  .EQ.  1)  GO  TO  14 
WRITE  (6*510)  ITP 

510  FORMAT ( 73H  ATTRITION  TO  RED  SHIPS  TRANSITING  BLUE-CONTROLLED  BARRI 
1ERS  DURING  PERIOO  ,I5,21H,  BY  KIND  OF  RED  SHIP  ) 

IHE AD=1 

14  CONTINUE 
SIR=B$IBAR ( IBAR ) 

NKR  P  =  NKR  S 

DO  15  KRP«1,NKRP 
PEN(KRP)*PSMO(KRP>LOC ) 

15  CONTINUE 
$P  =  0. 

00  16  K  R  P  =  1 ,  NKRP 

SP  =  SP  +  RACCDW(KRP)*RACPCMKRP) 

16  CONTINUE 
I  BC  P  2  2 

I  F  (  S  P  •EQ.  0.  )  I B  C  P  =  1 
IF  {  I3CP  .EQ.  2)  GO  TO  20 

CALL  3ARKCKIBSI3AR ( IBAR )  , B  ARL  TH ( IBAR ) , NKR  P ,  PEN,BEDW,CPRPK, 
1RECDW,CP9SCK,AWRCBB,PENK,SIBCK) 

GO  TO  30 
20  CONTINUE 

CALL  3ARKCK(BSIBAR(IBAR),BARLTH (IBAR), NKRP, PEN, ZERO, ZERO, 
1RACCDW.RACPCK, .5,PENK, SIBCK1  ) 
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SIB=BSIBAR< IBAR)-$IBCK1 

CALL  BARKCK(SIB»BARLTH (IBAR), NKPP, PEN, BEDW,CPRPK, 
1RECDW,CPBSCK,AWRCBB,PENK,SIBCK2  ) 
SIBCK=SIRCK1+SIBCK2 
30  CONTINUE 


PRINT  OUT  KILLS 


I BARM1= I8AR-1 

WRITE (6,521)  IBARM1, IBAR 

WRITE (  6,  522)  ( PE N ( KR S ) , KRS *  1 , NKR S  ) 

WRITE (6,523)  ( PE NK ( KR S ) p KR S *  1 > NKR S  ) 

SUBNEW  =  BSIBAR  (  IBAR ) —  S I B  C  K 

WRITE (6,524)  BS I B AR ( I B AR  )  ,  SIBCK,  SUBNEW 


521  FOR  MA  T ( 1H  , 4X , 2 3H8 AR R  I  E R  BETWEEN  REGIONS  ,13, 4H  AND, 13) 

5  22  FORMA  T ( 1H  ,7X,28HRED  SHIPS  ATTEMPTING  TRANSIT,  5X,10F7.2) 

523  FORMAT ( 1H  ,7X,16HRED  SHIPS  KILL  ED, 17X, 10F7. 2  ) 

524  FORMAT ( 1H  ,7X,25HBLUE  BARRIER  SUBMARINES — ,F7.2,15H  INITIALLY  LESS 
1, F7.2,21H  COUNTERK ILLED  Y I E L DS , F 7 . 2 , 1 1H  SURVIVING.  ) 

GO  TO  8 


IF  THAT  BARRIER  IS  NOT  PLAYED  OR  IS  RED -CONTROLLED, NO  ATTRITION 

6  SIBCK-O. 

DO  7  KR  S  *  1 , NK RS 
P  EN  K  (  KR  S  )  *  0  . 

7  CONTINUE 

8  BSIBAR(IBAR)=BSIBAR(IBAR) -SIBCK 
DO  9  KR  S  = 1 >  NK  R  S 

RSMI (KRS,NEWLOC ) *RSMI (KRS,NEWLOC )+RSMO(KRS,LOC )-PENK(KRS ) 

9  CONTINUE 
10  CONTINUE 

C 

C  UPDATE  NUMBER  OF  RED  SHIPS,  BY  KIND  AND  LOCATION 
C  OUTPUT  RESULTS 
C 

I  F (  IHE  AO  .EQ.  0)  WRITE(  6,  540) 

540  F  OR  M  A  T ( 8  3H  NO  BARRIERS  ARE  BLUE-CONTROLLED,  HENCE  THERE  IS  NO  BARR 
1ER  ATTRITION  TO  RED  SHIPS.  ) 

WR I TE ( 6,  550  )  ITP 

550  FORMAT ( 32H  FLOW  OF  RED  SHIPS  DURING  PERIOD  ,I5,21H,  BY  KIND  OF  RED 
1  SHIP  ) 

DO  12  LOOl.NLOC 
DO  13  KRS«1,NKRS 

RSNEWIKRS  > -RS <KRS,LDC)+PSMI (KRS » LOC ) -R SMO t KRS, LOC ) 

13  CONTINUE 

WRITE (6, 551)  LOC 

WRITE(fc>552)  (  RS<KRS,10C)»KRS*1»NKRS> 

WRITE (6, 553)  ( R S M I ( KR S , L OC ) , K R S = 1 , NKR S ) 

WRITE(6»554)  (RSMQ(KRS,LOC ) ,KRS=1,NKRS ) 

WRITE ( fc»  555)  (  PSNE W ( KRS  )  * KRS *1 , NKRS  ) 

551  FORMATdH  4  X  ,  6HR  E  G  I  ON  ,  I  2  ) 

552  FORMATdH  7  X  ,  27H I N I T  I  A  L  RED  SHIPS  IN  R E G I ON , 6 X , 1 0 F 7 . 2 ) 

553  FORMAT! 1 H  7X,25HRED  SHIPS  ENTERING  REGION,  8X,10F7.2) 

554  FORMATdH  7X,24HRED  SHIPS  LEAVING  REGION,  9X,10F7.2) 

555  FORMATdH  7  X ,  3  3HR  ES  UL  T  A  N  T  RED  SHIPS  IN  REGION  ,10F7.2) 

DO  17  KR  S* 1 , NKR  S 
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RS(KRS>LOC)=RSNEW(KRS) 

17  CONTINUE 
12  CONTINUE 

WRITE  ( 6>  599) 

WRITE (  6  »  2  ) 

599  FORMAT125H  END  OF  SUBROUTINE  MOVRS  ) 
2  FORHAT151H  - 

RETURN 

END 
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C*  DECK  MOVTF 

SUBROUTINE  MOVTF < LOC TF , I  TP  ) 

C 

C  SUBROUTINE  MOVTF  MOVES  THE  BLUE  TASK  FORCE  AND  ASSESSES  BARRIER 
C  ATTRITION  AS  APPROPRIATE 
C 

C*  COMOECK  COM  IN  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2).AAAEDE(2).AAAEED(l)»AACA.AAPAJO(2)>AAPDDA(2) 
COMMON  AAPDDE(2),AAPDED(1),AAPKA0<2,2).AAPKDA(2,2)»AAPKDE(2>1) 
COMMON  AAPKED(1»2)»AASRAA(5)>AASRED»AA$RFA(5),AASRFE(5).AASRID 
COMMON  ABANM<2),ABAVIS(2),ABCAS,ABESGS'(2),ABFASS<2) 

COMMON  ABFSM(2)>ABFVS(2)»ABPDA(2).ABPKA(2)>A8PSA(2»2)»ABPDS(2) 
COMMON  ABPKS{2»2)»ABTSC(2)»A8VGSS(2)»ABRSAM(2) 

COMMON  AEWD.AESCAB<2),ASWF,ATA9T<2,3),ATTWGT,AVAIIE<5,2) 

COMMON  AINTCT,AVAILT<5,2,3),AVALED<5,2),AWRCBB 

COMMON  BACCDW(6)>BACPCK(6)*3AREAQ(5)>3AREIQ(5)>BARIQ(51>BMTMIN(51 
COMMON  BARLTH(5)>BECDW(6)»BEDW(10).BSIBAR(5).8SSN0S»BUCAP 
COMMON  CACDWO,CAPMLQ<5),CAPMQ(5),CAPMR.CAPSTQ(5) 

COMMON  CPAGV»CPBPK(6)jCPBSCK(10),CPRPK(10),CPRSCK<6),CSCDW0 
COMMON  DDF  AC ( 10  )  > DO PKC ( 10 ) . DDPK S ( 10 ) , ODRK A A ( 10 ) , DDRKBA ( 10 ) 

COMMON  DDRSA(10),DDSPA<10),DIIA.D1T(2,3),D2T<2»3) 

COMMON  ESLR,ESRQ(5).ENACDT(4),ENACDS(10) 

COMMON  FAACA(5).FFACA(5)>FFAC'E(5)>FAC0B(5»2).FHSK(2) 

COMMON  FM3(6),FPPL1,FPPL2,FSTA0(5),FSTGA0(5) 

COMMON  HR MAAW, HRMASW.HR MURG, HR TAAW,HRT AS W»HRTURG 

COMMON  IAADA,IAAED»IABAF»IA3AW.IABAEQ>IATKRT(5),IATRIA,ICTL(5) 

COMMON  IDDAC.IDDAS»IKRAS(5)»IPLADA.IPLAED.IRSUBA(5)»ISS8R»ISSR8 

COMMON  IPPAF.  IPPAW 

COMMON  LGTHMP(6),LTFMP(6) 

common  maxtp.mimp 

COMMON  NABSAM.NKRB.NKRS.NK8DPL.NL0C.NPPSAM 

COMMON  PARK.PASS(2).PBDRN(2)»PBDRS{2)»PBKRN(2)»PBKRS(2) 

COMMON  PDIN»PKAT1»PKDF1»PKASW.PKIIN>PKIN»PKPLDT(4) .PKPL1.PKPL2 
COMMON  PKSST(4)»PRSM(10.5»6).PRWLN0(5) 

COMMON  PLAFDA(2),PLAEDE(2),PLAEED,PLBIBD(2,5),PLCA(5) 

COMMON  PLFDLL(5»5.2)»PLPAJO(3)>PLPDOA(2).PLPDOE(2)>PLPDED 
COMMON  PLPKAD(3,2),PLPKDA(2»3).PLPKDE(2).PIPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5),PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2)»PPAVSS(2)»PPPKAS(2)»PPAVLS(2»5).PPANMS(2) 

COMMON  PPPDSA(2)»PPFSVS(2)>PPTSCS(2)»PPCAL(5) 

COMMON  PPPDAS(2),PPFASS(2),PPAEGS(2),PPFASM(2) 

COMMON  RACCDW(10)»RACPCK(10).RECDW(10).REDW(6)>RAR8AB(3) 

COMMON  RS (10. 5),RSIBAR ( 5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),SBFRFC.SBFRSA(5),SBFRSC 
COMMON  SBPBDF.SBPB0S.S8PBKF.SBPBKS.SBPFD8.SBPFKB.S8PSDB.S8PSKB 
COMMON  SMALLR.SSDAAW.SSDASW. SSDUR G. S T ARQ ( 5 ) .STSALV, SU8S0R.SHEL 
COMMON  SSBACR(8)*SSCFA»SSFRSV(8» 5)>SSPB0R.SSPBKR,SSPRDB.SSPRKB 
COMMON  SSFBAK(2,8) .SSPRKC 

COMMON  TAB10T<20.4),TAB12(20),TAB13T<20»4),TCAP,THSCAQ<5) 

COMMON  THSCTQ(5)»TPAS»TPS.T1»T2.T3>T4 
COMMON  UBAEW.UBAEWL.UBASW, U8ASWL 
COMMON  VBT(3)»VCAP,VI 

COMMON  WFMAAW.WFMASW.WFMPLT.WFMURG.WFTAAW.WFTASW.WFTPLT.WFTURG 
COMMON  WRLND0(5).WTFCB0,WVSIZ.WFPPAS(2,5),WFTFL (5) 

COMMON  XAEW»XAEWLQ(5).XASW»XASWLQ(5)jXATTCK»XEAAW»XEASWA>XEASWN 
COMMON  XFGHTR. XPLAT.XURGS. X  I  A ( 5). XIE { 51.XNRAB 
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COMMON  ZLAMPF,ZMPCAP,ZMPDLI,ZMPATT(3),ZMPESC,ZMPSTG 
COMMON  /BARSCK/  SCK31>SCK32 
C*  COMDECK  COMCTF 

COMMON  /COMCTF/  XE F F C M , F GHTR I , A T TC K I , X C AP S T 
C  * 

c 

INTEGER  DESTF 

DIMENSION  PEN1(10),PEN2(10),PENK(10),PENKA<10)»ZER0(10),BSITF(10) 
DIMENSION  DGF 1 ( 2  ) 

DATA  ZERO  /10*0./ 

WRITE<6,1) 

WRITE ( 6 ,  501) 

1  FORMAT  (  51H0 - > 

501  F  OR  M A  T ( 2  4H  START  SUBROUTINE  MOVTF  ) 

541  F  OR  MA  T ( 6  7H  ATTRITION  TO  (BLUE)  TASK  FORCE  IN  CROSSING  BARRIER  BETW 
1EEN  REGIONS,  13, 4H  AND, 13) 

542  F  OR  MAT ( 1H  ,4X,17HKIND  OF  BLUE  S H I P , 2 IX , 4 OHX PL A T  XEAAW  XEASWA  XEAS 
1WN  XURGS  BSSNDS) 

543  FORMAT! 1H  , 4X, 32HINITI AL  BLUE  SHIPS  IN  TASK  FORC E , 4 X , 6F 7 . 2 ) 

544  FOR  MA  T ( 1H  ,4X,28HBLUE  SHIPS  KILLED  BY  B ARR I ER , 8X , 6F 7 . 2  ) 

545  FORMAT ( 1H  , 4X , 36HR ESUL T ANT  BLUE  SHIPS  IN  TASK  FORCE  ,6F7.2) 

546  FORMAT ( 1H  >  4X  >  30HC  ARR I E  R  CAPABILITY  DEGRADED  BY,F7.4,49H,  NEW  RELA 
1TIVE  CARRIER  CAPABILITY  (XEFFCM)  EQUALS, F7. 4, 1H.  ) 

547  FORMAT ( 25H  RED  BARRIER  SUBMARINES — ,F7.2,15H  INITIALLY  LESS,F7.2, 

1 2 1 H  COUNTERKILLED  Y I  ELD S , F 7 . 2 , 1 1H  SURVIVING.) 

599  FORMAT ( 25H  END  OF  SUBROUTINE  MOVTF  ) 

2  FORMAT ( 5 1H  - > 

C 

570  FORMAT ( 39H  TASK  FORCE  DOES  NOT  MOVE  DURING  P ER  I OD , I  4 , 23H .  IT  REMA 
1INS  IN  REGION, 13, 1H. ) 

571  FORMAT ( 14H  DURING  PE R  I  OD, 14 , 29H  TASK  FORCE  MOVES  FROM  REGION, 13, 

1 10H  TO  REGION,  13, 1H. ) 

576  FORMAT  (  24H  BARRIER  BETWEEN  RE GI ON S , I  3 , 4H  AN0,I3,  70H  IS  CONTROLL 

1ED  BY  BLUE,  HENCE  THERE  IS  NO  ATTRITION  TO  THE  TASK  FORCE.) 

577  FORMAT ( 36H  THERE  IS  NO  BARRIER  BETWEEN  REGIONS , 1 3 , 4H  AND,I3,48H,  H 
1ENCE  THERE  IS  NO  ATTRITION  TO  THE  TASK  FORCE.) 

NKB  S  =  6 
C 

C  FILL  VECTOR  BSITF  WITH  VALUES  FROM  BLANK  COMMON 
C 

BSITF (1 >=XPLAT 
BSITF(2)-XEAAW 
B  S I T  F ( 3 ) -XEASWA 
BSITF(4)*XEASWN 
BSITF ( 5 ) -XURGS 
3  S I T  F (6) -BSSNDS 

FIND  NEW  TASK  FORCE  LOCATION  AND  ASSESS  NECESSITY  FOR  ATTRITION 
COMPUTATIONS 

ITPP1-ITP+1 

DESTF »L0CTFF(ITPP1,LGTHMP,LTFMP.M IMP) 

I F ( DE  ST  F  .EQ.  LOCTF)  GO  TO  3 
IF ( IABS ( DESTF-LOCTF )  .GE.  2)  GO  TO  97 
I F ( DE  ST  F  .GT.  NLOC)  GO  TO  98 
IBAR  =  MAXO(DESTF, LOCTF  ) 

GO  TO  4 
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3  CONTINUE 

WR I TE ( 6, 570 )  ITP,LOCTF 
WR I TE (6,599  ) 

WR ITE (6,21 
RETURN 

4  CONTINUE 

WRITE (6,571)  ITP,LOCTF, DESTF 
IFCICTLCIBAR  )  — 1)  50,51, 5 

50  WRITE (6»  577)  LOCTF,OESTF 
GO  TO  55 

51  WRITE (6, 576)  LOCTF, DESTF 
55  CONTINUE 

LOCTF *DESTF 
WRITE(6,599) 

WRITE (6,2) 

RETURN 

5  CONTINUE 

WRITE (6,541)  LOCTF, DESTF 
IFIXPLAT  .EQ.  0. )  GO  TO  6 
I BC  P  *3 
GO  TO  8 

6  S  P  *0 . 

DO  7  K8 S «1 , NKBS 
SP=SP+BACCDW(KBS  )*BACPCK(KBS) 

7  CONTINUE 
I BC  P  =  2 

I  F  (  S  P  .EQ.  0.)  I BC  P  *  1 
C 

C  COMPUTE  BARRIER  ATTRITION 
C 

8  I F ( I BC  P-2  )  10,20,30 

10  CALL  3ARKCK(RS I3AR( IBAR ) , BARLTH( IBAR )»NKBS,BSITF,REOW»CPBPK» 
1BECDW,CPRSCK,ATTWGT,PENK,SI8CK) 

GQ  TO  40 

20  CALL  BARKCK(RSIBAR(I3AR), B  A RL  TH  (  I  B  AR  )  , NKBS, BSITF, ZERO, ZERO, 
18ACCDW*BACPCKj  «5*PENKj  SIBCK1) 

S IB*RSIBAR ( I  BAR  J-S  IBCK1 

CALL  BARKCK($IB#BARITH<IBAR ),NK9Sf BSITF#REDWfCPBPK# 
lBECDW>CPRSCKi ATTWGT  t  PENK>SIBCK2  ) 

S IBCK=S IBCK1+SIBCK2 
GO  TO  40 

30  WTFCB*AMIN1 (WTFCBO#BARLTH(IBAR) ) 

SI3*RSIBAR< IBAR)*(WTFCB/BARLTH(I8AR) ) 

B  A C C  D  W ( 1 ) =  C  AC  DWO*XEF  FCM 

CALL  BAPKCK(5 I3>WTFCBjNK8S>  8S I TF>  ZERO*  ZERO# 

1  BACCDWjiBACPCKf  •  5  j  PENK  *  SIBCK1  ) 

SIB-SIB-SIBCK1 
F M 3  ( 1  )  *0 • 

00  31  KBS=1*NK3S 

PEN1(KBS )*BSITF(KBS )^FM3(KBS) 

PEN2IKBS )=BSITF(KBS)-PEM1(KBS ) 

31  CONTINUE 

CALL  BARKCK(SI8>WTFCB,NKBS,PEN1,RED*,CPBPK> 

19EC0W,CPRSCK, ATTWGT, PENK  , S  IBCK2 ) 

5IB=SIB-5IBCK2 
BtCOWtl)  *CSCOWO*XEFFCIi 
C  PBPK ( 1 ) =0. 
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CALL  BARKCK{SIB,WTFCB,NKBS,PEN2,REDW,CPBPK, 

19ECDW,CPRSCK, ATTWGT, PENKA,S I9CK3 ) 

C  THIS  COMPUTES  COUNTERKILLS  TO  REO  BARRIER  SUBMARINES  AND  KILLS  TO 
C  ALL  SHIPS  EXCEPT  CARRIERS 
DO  32  KBS=1»NKBS 
PENK (KBS  }*PENK(KBS  )  +  PENKA(KBS  ) 

32  CONTINUE 

SIBCK=SI8CK1+SI9CK2+SIBCK3 

C 

C  COMPUTE  PROPORTION  OF  CARRIER  CAPABILITY  DESTROYED  BY 
C  RED  BARRIER  SUBMARINES 
C 

I  TER  *  1 

33  CONTINUE 

3CR=SI8*AMIN1<WTFCB,REDW<1))/WTFCB 

NSCR=SCR 

XSCR*N$CR 

FSCR=SCR-XSCR 

SU  M  =  0  . 

NSCR  P 1*NSCR  +  1 

DO  34  INDEX*1 jNSCRPl 

N AS  =  I NDE  X~1 

ASANAS 

TERMl*BINOM(NSCR,NAS,CPAGV) 

TERM2-TERM1*( (XSCR  +  1. ) ✓ ( XSC R-AS+ I . ) ) * ( 1 #-C  P AGV ) 

C  IN  FACT,  TERM2=BINOM(NSCR+l,NAS,CPAGV ) 

TERM«TERM1*(1.-FSCR)  ♦  TERM2*FSCR 
$UM«SUM+FUNC12(AS*TPAS,TAB12)*TERM 

34  CONTINUE 

35  CONTINUE 

DGFl(ITER) *SUM  +  FSCR*(CPAGV**(NSCR  +  1) ) *  FUNC 1 2 ( T  PAS  * ( XS  CR  +  1 • ) , TAB  12) 
I F (  ITER  .EQ.  2)  GO  TC  37 
S  IB«S  IB-SCK32 
ITER  *  2 
GO  TO  33 
37  CONTINUE 

DGF  =  ATTWGT*DGF1(1)M1.-ATTWGT)*DGF1(2) 

CDGF-l.-OGF 
X  EF  FCM*XE  F  FCM*OGF 

40  CONTINUE 
C 

C  OUTPUT  ATTRITION  TO  BLUE  TASK  FORCE 
C 

WRITE (6,542) 

WRITE  (6,  54  3)  ( BS  I T F  (  KBS  )  ,  KBS’*  1,  6 ) 

WRITE  (6,544)  (  PENK(KBS ),KBS*1,6) 

DO  41  KB  S  *  1 , NKBS 

BSITF (KBS)*BSITF(K8S)-PENK(K3S) 

41  CONTINUE 

WRITE  (6,545  )  (  BS  I  TF ( KBS  )  ,KBS *  I, 6 ) 

I  F (  I  B  C  P  .EQ.  3)  WRITE(6,546)  COGF ,XEFFCM 

C 

C  OUTPUT  COUNTERKILLS 

C 

RSNEW=RSIBAR(IBAR)-SIBCK 

WRITE (6, 547)  RSIBAR(I9AR),5IBCK,RSNEW 

RSIBAR(IBAR  )«RSNEW 
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C 

C  UPDATE  SHIPS  IN  COMMON  FOR  CTFMOD 
C 

XEAAW*BSITF(2) 

XEASWA*BSITF(3) 

XE  AS  WN»B  S I TF ( 4 ) 

XURGS*BSITF(5) 

BSSNDS*BSITF (6) 

L  OC  T  F  *DE  STF 
WR I TE ( 6>  599) 

WRITE (6,2  ) 

RETURN 

97  WRITE ( 6>  597  ) 

597  FORMAT ( 89H  TASK  FORCE  DIRECTED  TO  MOVE 
1  PREVIOUS  REGION.  PROGRAM  STOPS.  ) 

STOP  6404 

98  WR I TE (6 >  598  ) 

598  F0RMATI72H  TASK  FORCE  DIRECTED  TO  MOVE 
1  PROGRAM  STOPS.  ) 

STOP  6405 
END 


TO  A  REGION 


TO  A  REGION 
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SUBROUTINE  PLBAB 


C  «=  DECK  PLBAB 

SUBROUTINE  PLBAB(L) 

C* 

C*  PLBAB  MODELS  THE  ATTEMPT  BY  THE  RED  AIR  ATTACK  TO  PENETRATE  THE 
C*  BLUE  LAND-BASED  AIR  BARRIER 
C* 

C*  COMDECK  COMINP 

COMMON  NEPD(l) 

COMMON  AAAEDA(2)>AAAEDE(2),AAAEED<l),AACA,AAPAJO(2),AAPODA(2) 
COMMON  AAPQDE{2),AAPDED(1),AAPKAD(2,2),AAPKDA(2,2),AAPKDE(2,1> 
COMMON  AAPKED(1,2 )  ,  A  AS  R AA ( 5) ,AA$RED,AASRFA( 5),AASRFE (5  )  , A A  SR  I D 
COMMON  ABANM(2),ABAVLS(2),ABCASfABESGS(2),ABFASS(2> 

COMMON  ABF$M<2),ABFVS(2),ABPQA(2),ABPKA<2)>ABP$A{2,2),ABPDS(2) 
COMMON  ABPK${2,2),ABTSC(2),ABVGSS(2),ABRSAM<2> 

COMMON  AEWD,AESCAB(2),ASWF,ATA3T(2,3),ATTWGT#AVAILE(5,2) 

COMMON  AINTCT,AVAILT(5,2,3),AVALED(5,2),AWRCBB 

COMMON  BACCDW(6),BACPCK(6),BAREAQm,BARELQ(5),BARLQ<5),BMTMIN(5) 
COMMON  BARLTH(5),BECDW(6),8EDW(10),BSIBAR(5),BSSNDS,8UCAP 
COMMON  CACDWO,CAPMLQ(5),CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(fe),CPBSCK(10),CPRPK(10),CPR$CK(6),CSCDW0 
COMMON  ODFAC (10)  ,ODPKC  <10>,DDP<$  <10) ,DDRKAA(10),DDRKBA( 10) 

COMMON  DDRSA(1O),D0$PA(1O),DLIA,D1T(2,3),D2T(2,3) 

COMMON  ESLR,ESRQ(5),ENACDT(4},ENACDS(10) 

COMMON  FAACA(5>,FFACA(5)>FFACE(5),FACOB(5,2),FHSK(2) 

COMMON  FM3<6)>FPPLl,FPPL2,FSTAQ(5),FSTGAOI5) 

COMMON  HRMAAW,HRMASW,HRMURG,HRTAAW, HRT  ASW, HRTURG 
COMMON  IAADA, IAAED, IABAF, IABAW, IABAEQ, iATKRTt  5), I  ATRIA, ICTL ( 5 ) 
COMMON  IDDAC, IDDAS, I KR  A  S  (  5 ) , IPLADA, IPLAED,  IRSUBA(5),I$SBR, ISSRB 
COMMON  IPPAF,  IPPAW 
COMMON  LGTHMP(6),LTFMP(6) 

COMMON  MAXTP,MIMP 

COMMON  NA0SAM,NKRB,NKRS,NKBDPL,NLOC,NPP$AM 

COMMON  PARK,PA$S(2),PBDRN(2),PBDRS(2),PBKRN<2),PBKR$(2) 

COMMON  PDIN, PKAT1, PKDF1,PKASW,PKIIN, PKIN, PKPLDT ( 4)  ,PKPL1,PKPL2 
COMMON  PKSST ( 4 ) ,PR$M(10,5,6) ,PRWLNQ(5 ) 

COMMON  PLAEDA(2), PLAEDE (2),PLAEED,PLBLBD(2,5), PLCA( 5) 

COMMON  PLFDLL(5,5,2),PLPAJO(3),PLPDDA(2),PLPDDE(2),PLPDED 
COMMON  PLPKAD(3,2),PLPKDA(2  , 3) , PIPKDE ( 2  )  , PI PKE D ( 2 ) 

COMMON  PAFCNF,PFFCNF,PPSORR(2>5),PPPSA${2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2),PPPKAS(2),PPAVLS(2,5),PPANMS<2) 

COMMON  PPPDSA(2),PPFSVS(2),PPTSCS(2),PPCAL(5) 

COMMON  PPPDA$(2),PPFASS(2),PPAEGS(2),PPFASM(2) 

COMMON  RACCDWC10),RACPCK(10),RECDW(10),REDW(6),RARBAB(3) 

COMMON  RS (10, 5),RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5)>SBFRFC,SBFRSA(5),SBFRSC 
COMMON  SBPBDF,SBP3DS, SBPBKF,S3PBKS, SBPFDB, SBPFKB, SBPSDB,SBPSKB 
COMMON  SMALLR,SSDAAW,SSDASW, SSDURG, STARQ(5) ,STSALV, SUBS OR, SHEL 
COMMON  SS8ACR (9) , SSCFA, S5FRSV<  3, 5 ) ,SSPBDR, SSPBKR,SSPRDB,SS  PRKB 
COMMON  SSFBAK(2,8),SSPRKC 

COMMON  TAB10T (20,4) , T  A  B 1 2 ( 20  )  >  TAB13T (20,4)  »  TCAP,THSCA0(5  ) 

COMMON  THSCTQ(5),TPA$,TPS,TI,T2tT3,T4 
COMMON  UBAEW,U6AEWL,UBASW, UBASWL 
COMMON  VBT(3),VCAP,VI 

COMMON  WFMAAW, WFMASW*  WFMPLT, WFMURG*  WFTAAW, WFTASW, WFTPLT, WFTURG 
COMMON  WRLNDQ(5),WTFCBO,WVSIZ,WFPPAS(2,5),WFTFL(5) 

COMMON  XAEW,XAEWLQ(5),XASW,XASWL0(5),XATTCK,XEAAW,XEASWA,XEASWN 
COMMON  XFGHTR, X P L A T , XURG S >  X  I A ( 5 ),XIE(5),XNRAB 
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COMMON  ZLAMPFiZMPCAP,ZMPDLI,ZMPATT(3),ZMPESC,ZMP$TG 


c* 

C*  COMDECK  COMGA 

COM MON/C OMGA/  NTPSLA,BMR(2,3),ESC(2) 
C* 

C* 

c* 


DIMENSION  D(2),DA(2),DK(2),DH(2),AA(3),AK(3),AH(3},A(3) 


WRITE (6^1) 
WRITE  ( 6  ,  101) 
FORMAT ( 51H0- 


C  * 


101  FORMAT (24H  START  SUBROUTINE  PLBAB  ) 


C  * 


c* 


c* 


c* 


T 3 MR  *  0. 

DO  5  1*1,2 
DO  5  K*1,NKRB 
TBMR  *  T  B  MR  +  B  MR ( I , K ) 

IF ( T8  MR  • L  E •  0.)  GO  TO  98 

DO  15  KBD3 1,NKBDPL 
D(KBD)  =  0, 

DO  10  LB*1,NL0C 

D(KBD)  *  PLFDLL(KBD,LB,L  )*PLBLBD(KBD,L3  )  ♦  D(KBD) 

10  CONTINUE 
15  CONTINUE 

DO  20  KR B *  1 , NKRB 

20  A(KRB)  *  BMR  ( 1 ,KRB )  +  BMR(2,KRB) 

E  *  ESC(l)  +  E  SC  ( 2 ) 

CA  *  PLCA(L) 

CALL  AIRAIR(E,D,A,PLPDED,PLPDDE,PLP0DA,PLPKED,PLPKDE,PLPKDA, 

X  PLPKAD,PLPAJO,PLAEED,PLAEDE,PLAEDA,  C A , 1 , NKBDPL , NKRB, 

x  I PLAED , I  PL  AO  A , E A, EK, EH, DA, DK, DH, AA, AK , AH ) 

DO  AO  I  A  B  =  1 ,  2 
DO  30  KRB*1,NKRB 
IF { A (KRB  )  .LE .0,  )  GO  TO  30 
FACTOR  =  BMR (  IAB,KRB ) / A (KRB ) 

ATABT ( I AB, KRB )  =  A T A B T (  I  A B , K R B )  +  AH ( K  R  B  )  *  F  AC  TOR 
BMR ( I AB , KR B  )  ■  AA { KRB > *FACTQR 
30  CONTINUF 

IFCE.LE.O. )  GO  TO  40 
FACTOR  *  BSC { IA0 )/E 

AESCAB(IAB)  =  AESCAB(IAB)  +  EH^F  AC  TOR 
ESC(IAB)  *  EA*FACTOR 
40  CONTINUE 

DO  50  KBD*1, NKBDPL 
I F ( D (  KBD  ) • LE . 0* )  GO  TO  50 
DO  45  LB*1,NL0C 

PLBLBD(K8D,LB)  *  PLBLBD  (  KBD  ,L  8  )  - 

x  (PLBLBD (KBD,L3)*PLFDLL (KBD,LB,L)/D(KBD) ) *DK { K  B  D ) 

45  CONTINUE 
50  CONTINUE 


00  60  KR B  *  1 , NK R B 

60  PRINT  110,  BMR (1,KRB ),BMR(2,KRB) ,KR3 
110  FORMAT (14H  BMR(1,KRB)*,F10.4,14H 


BMR(2,KRB)*,F10.4,10H  FOR  KRB 


SUBROUTING  PI B  A3 


1  =  ,I2) 

PRINT  120,  ESC  (  1 )  *  ESC ( 2  ) 

120  FORMAT ( 1 4H  E SC ( 1  )  =  , F 10 * 4, 1 4H  E SC ( 2  )  ■, F 10 • 4 ) 

DO  70  KP  B  *  1 , NKRB 

70  PRINT  130,  ATABT (1,KRB),ATABT(2,KRB) ,KRB 
130  FORMAT ( 1  4H  A T A B T ( 1 , K R B ) * , F 1 0 . 4 , 1 4H  AT  A  BT  (  2  ,  KR  B  )  =  ,  F  1  0 . 4  ,  1  OH  FOR  KRB 
1  =  ,  12) 

PRINT  140,  AESCAB(l), AESCAB(2) 

140  FORMAT! 14H  AESCAB (1  ) »,F 10. 4, 14H  A  E  SC  A  8  (  2  )  =  ,  F  1 0 . 4  ) 

PRINT  150 

150  FORMAT! 19H  P L B L BO ( K B D , L B )  — ) 

DO  60  KBO«ltNKBDPL 

80  PRINT  151,  (KBD,LB,PLBLBD!KBD,LB),LB«1,NL0C) 

151  FORMAT!  9H  PLBL BD ( ,  1 1,  1H, ,  II , 2H ) » , F 10. 4  ) 

GO  TO  99 

98  WR I TE ( 6, 198  ) 

198  F  OR  MA  T  <  4  4H  NO  RED  AIR  ATTACK  ON  TASK  FORCE  THIS  PERIOD) 

99  WRITE(6, 199) 

WRITE (6,2 ) 

199  FORM  A  T( 2  5H  END  OF  SUBROUTINE  PLBAB  ) 

2  FORMAT! - - - 

RETURN 

END 
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C*  DECK  POWERP 

SUBROUTINE  PO  WE  R  P  <  L  ,  I  T  P  ) 

C* 

C*  POWERP  CALCULATES  POWER  PROJECTION  RESULTS 
C* 

C  *  COMDECK  COHINP 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE(2),AAAEED(l)»AACA,AAPAJO<2),AAPDDA(2) 
COMMON  AAPDDE<2),AAPDED<1),AAPKAD<2,2),AAPK0A(2,2),AAPK0E(2,1) 
COMMON  AAPKED(I»2),AASRAA(5),AASREDjAASRFA(5),AASRFE(5)»AASRI0 
COMMON  A8ANM(2),ABAVLS(2)»ABCASjABESGS(2)>ABFASS(2) 

COMMON  ABFSM(2)jABFVS(2)»ABPDA(2)>A3PKA(2)»A8PSA(2»2)>ABPDS(2) 
COMMON  ABPKS(2,2),ABTSC(2),ABVGSS<2>,ABRSAM<2) 

COMMON  AEW0,AESCA8(2),ASWF,ATA8T(2,3)*ATTWGT,AVAILE(5,2) 

COMMON  AINTCT,AVAILT(5.2,3),AVALED(5,2),AWRCBB 

COMMON  BACCDW(6)»BACPCK(6)»8AREAQ(5)>9ARELO(5)»BARLO(5),BMTMIN(5) 
COMMON  BARLTH(5),BECDW(6),BEDW(10),8SIBAR(5),BSSNDS,8UCAP 
COMMON  CACDWO»CAPMLQ(5),CAPMO(5),CAPMR,CAPSTO(5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSC0W0 

COMMON  DDF  AC ( 10) , DDPKC (10) »DDPKS ( 10 » , DORK A A C 10 ) , DDRKB A< 10 ) 

COMMON  DDRSA(10),DDSPA(10),DLIA,D1T(2,3)»D2T(2>3) 

COMMON  ESLR>ESRQ(5)>ENACDT(A)»ENACDStlO) 

COMMON  FAACA(5),FFACA(5),FFACE(5),FAC0B(5,2),FHSK(2) 

COMMON  FM3(6)>FPPL1>FPPL2»FSTAQ(5)>FSTGAQ(5) 

COMMON  HRMAAWjHRMASW,HRMURG»HRTAAW>HRTASW>HRTURG 

COMMON  IAADA,IAAED,IABAF,IABAW»IABAEQ»IATKRT(5)»IATRIA,ICTL(5) 

COMMON  IDDAC»IDDAS»IKRAS(5)>IPLADA,IPLAED»IRSUBA(5)>ISSBR»ISSRB 

COMMON  I  P  P  A  F  >  IPPAW 
COMMON  LGTHMP(6)»LTFMP(6) 

COMMON  MAXTP»MIMP 

COMMON  NABSAM,NKRB,NKRS,NKBDPL,NLOC,NPPSAM 

COMMON  PAPK»PASS( 2)»PBDRN(2) iPBDRS(2)>P8KRN(2) »  PBKRS (2) 

COMMON  PDIN,PKAT1>PKDF1>PKASW>PKIIN>PKIN,PKPLDT(A),PKPL1,PKPL2 
COMMON  PKSST(A),PRSM(10,5,6),PRWLNQ(5) 

COMMON  PLAEDA(2),PLAEDE(2),PLAEED»PLBLBD(2,5),PLCA(5) 

COMMON  PLFDLL(5>5>2)>PLPAJO(3)>PLPDDA(2)>PLPODE(2)>PLPDED 
COMMON  PLPKAD(3,2),PLPKDA(2»3)»PLPKDE(2)»PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5),PPPSASt2,2)»PPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2),PPPKA$(2),PPAVLS(2>5),PPANMS<2) 

COMMON  PPPDSA(2),PPFSVS(2),PPTSCS(2),PPCAL(5) 

COMMON  PPPDAS(2)>PPFASS(2),PPAEGS(2),PPFASM(2) 

COMMON  RACCDW(10)»RACPCK(10)>RECDW(10)*REDW(6)»RARBAB(3) 

COMMON  RS(10>5)>RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5)tSBFRFC,S8FRSA(5),SBFRSC 
COMMON  SBPBDF»SBPBDS»SBPBKF»SBP3KS»SBPFDB>S3PFKB»SBPSDB»SBPSKB 
COMMON  SM ALLR, SSDAAW,S SD ASW,SS DURG, STAR  0(5), STSALV, SUBS  OR, SHEL 
COMMON  SSBACR(8),SSCFA,SSFRSV<8,5)>SSPBDR>SSP9KR,SSPRD8,SSPRK8 
COMMON  SSFBAK(2,8),SSPRKC 

COMMON  TAB10T(20,A)>TAB12(2Q)»TAB13T(20»4),TCAP,THSCAQ(5) 

COMMON  THSCT0(5),TPAS,TPS,T1,T2,T3,TA 
COMMON  UBAEW,UBAE WL  ,  U B  AS  W ,  U 8 A S  WL 
COMMON  VBT(3),VCAP,VI 

COMMON  WFMAAW,WFMASW,WFMPLT,WFMURG,WFTAAW,'WFTASW,WFTPLT,WFTURG 
COMMON  WRLNDQ(5),WTFC80,WVSIZ,WFPPAS(2,5),WFTFL(5) 

COMMON  XAEW,XAEWLO(5),XASW,XASWLQ(5),XATTCK,XEAAW,XEASWA,XEASWN 
COMMON  XFGHTR, XPLAT,XURGS,XIA(5) ,  XIE (5  ),  XNRAB 
COMMON  ZLAMPF,ZMPCAP,ZMPDLI,ZMPATT(3),ZMPESC,ZMPSTG 
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C* 

C*  COMDECK  COMCTF 

COMMON  /COMCTF/  X  E  F  F C  M ,  F GHT R  I  ,  A  TTC  K  I  ,  X C  A P  S  T 
C* 

C* 

C  *  CQMDECK  COMSOR 

COMMON/COMSOR/  FTSORU, A TSQRU 
C* 

c* 

C*  CQMDECK  CDMQUT 

COMMON /C  CIM  OUT/  CWPPAS*CWTPTF,PPS0RT,NTPSIM,LTASKF(90) 

c* 

c* 

DIMENSION  ACm9ASC2>*ASA(2)»*SH<2)>ASKC2)jACK(2) 

DIMENSION  SKA<2)# SNS (2)9 SMK( 2)9  AVAILS (2) 

DIMENSION  VPKS(4  ),VPSA(4) 

C  * 

WRITE (6, 1) 

WRITE !  6  >  201) 

1  FORMAT!  5  1H0 - ) 

201  F0RMAT(24H  START  SUBROUTINE  POWERP) 

I F ( L  .IE.  0)  GO  TO  96 

WRITE  ( 6  >  20  2  )  L 

202  FORMAT! 2 4H  TASK.  FORCE  IS  IN  RE G  I  0 N  ,  I  3 , 1H  .  ) 

C* 

C*  BLUE  AIRCRAFT  FROM  CARRIER 
C* 

A  C (  1  )  *  AMIN1(XATTCK,ATTCKI*XEFFCM) 

A C  !  2  )  =  AMIN1 ( XFGHTR, FGHTRI+XEFFCM) 

AC ( 2 )  *  AMAX1 ( 0. *  AC (2 )-BUCAP*XCAPST) 

P 1  =  PP SORR  !  1  #  L  ) 

P2=PPSORR(2»L  ) 

IF (P1+P2  .LE.  0. }  GO  TO  97 

AS! 1) =AMAX1 (0. t  ( AC ! 1 )-ATSORU)*Pl  ) 

AS (2)-AMAXl(0.j (AC (2 )-F TSQRU )*P2  ) 

TOTSOR  =  A  S ! 1 )  +  AS ( 2  ) 

I F ( TOTSOR  .LE.  0. )  GO  TO  90 
C* 

C  *  BLUE  ATTACKER/RED  SAM  INTERACTION 

C* 

C*  CONVERT  MATRICIES  TO  VECTORS 

C* 

DO  20  KRS=ltNPPSAM 
AVAILS(KRS)  *  PPAVLS(KRS,L) 

DO  20  K  8  A  *  1  *  2 

IND1  =  (KfiA-1 J+NPPSAM  +  KRS 
I  NO  2  =  (KP$-1)*2  ♦  KBA 

VPKS (  IN01) *PPPKSA(KRS>KBA) 

VPSA!IND2)*PPPSAS(KBA,KRS) 

20  CONTINUE 
C* 

CALL  ATRTSS(PPRSAM,PPAVSS,AS>PPPDAS,VPSA,PPPKAS,AVAILS,PPANMS, 

1  PPPDSA,VPK$,PPFASS,PPCAL(L),NPPSAM*2>PPAEGS,PPFASM, 

2  PPFSVSjPPTSCS* I  P  ?  A  F  * I  P  P  A  W  >  SMA*5MSf$MK>ASAjASH>A$K) 
C* 

C*  CONVERT  SORTIES  KILLED  TO  AIRCRAFT  KILLED 
C* 
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DO  30  1*1,2 

IF(ASKd).LE.O)  GO  TO  23 

IF ( PPSORR ( I, L ) . LE . 1 . )  GO  TO  22 

ACK(I)  *  (  1  •” ( 1 «-ASK ( I ) / AS ( I ) )  +  *P P SORR t 1 , L ) ) * AS ( I ) / PPSORR ( I , L ) 
GO  TO  30 

22  ACKtl )  =  ASK1I  ) 

GO  TO  30 

23  ACK(I)  *  0. 

30  CONTINUE 

UPDATE  RED  SAM  AND  BLUE  AIRCRAFT  INVENTORIES  AND  RECORD  SORTIES 
DO  AO  KRS*1»NPP$AH 

AO  PPRSAM(KRS)  *  PPRSAM(KRS)  -  SMK(KRS) 

XATTCK  *  XATTCK  -  ACK(l) 

XFGHTR  *  XFGHTR  -  AC K ( 2 ) 

PPSORT  *  0. 

I F (  ITP.  GT.  1 )  GO  TO  50 
DO  A 5  1*1,2 

PPSORT  *  PPSORT  +  AS  A (  I  ) 

A 5  CWPPAS  -  kFPPAS(I,l)*ASA<I) 

GO  TO  60 
50  CONTINUE 
DO  55  1*1,2 

PPSORT  *  PPSORT  +  ASA(I) 

55  CWPPAS  *  CWPPAS  +  WF P P A S ( I , L ) * A S A (  I  ) 

60  CONTINUE 


C*  PRINT  OUT  RESULTS 

C* 

DO  110  K8  A  *  1 , 2 

PRINT  210,  AS (KBA ) , AC ( KBA ) , ACK (K3 A ) ,KBA 
PRINT  211,  ASA(KBA),ASH(KBA),ASKtKBA),KBA 

210  FORMATfllH  A S ( K B A ) * , F 1 0. A , 1 1H  A C ( K B A  )  * , F 1 0 . A, 1 1 H 
1  0 . A , 1  OH  FOR  KBA  *, 12 ) 

211  FORMAT! 11H  AS A ( KB A ) * , F 10 . A , 11H  A SH ( KB A  )  =  , F 10 . A, 1 1H 
10. A, ION  FOR  KBA  =,I2) 

110  CONTINUE 

DO  120  KRS*1,NPPSAM 

PRINT  220,  SMA!KRS)»SMS(KRS),SMK(KRS),KRS 
220  FORMAT ( 1 1H  S M A ( KR S )  =  , F 1 0 . A , 1 1H  S M S ( K R S  )  =  , F 10 . A , 1 1 H 
IO.AjIOH  FOR  KRS  *>I2) 

120  CONTINUE 

PRINT  230,  XATTCK, XFGHTR , CWPPAS, PPSORT 
230  F0RMATI11H  XATTCK  *,F10.A,11H  XFGHTR  *,F10.A,11H 
10. A, 11H  PPSORT  = , F 1 0 . A ) 


ACK(KBA) * , F 1 
A S K  ( K B A  )  *,  FI 


SMKIKRS ) =, FI 


CWPPAS  =, FI 


C 


GO  TO  99 


96  WRITE(6,296> 

296  F0RMATI62H  TASK  FORCE  IS  IN  REGION  ZERO.  NO  POWER  PROJECTION  °ERF 
lORiiED*) 

GO  TO  99 

97  WRITE<6,297) 

297  FORMA  T ( B8H  POWER  PROJECTION  SORTIE  RATES  FOR  THIS  REGION  ARE  ZERO. 
1  NO  POWER  PROJECTION  PERFORMED.) 

GO  TO  99 
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98  WRITE(6,298) 

298  FORMAT ( 6 OH  NO  BLUE  AIRCRAFT  AVAILABLE.  NO  POWER  PROJECTION  PERFOR 
1MED.  ) 


99  WRITE(6,299) 

WRITE (6,2) 

299  FORMAT(25H  END  OF  SUBROUTINE  PQWERP) 

2  FORM  AT ( 51H  - ) 

C 

c* 

RETURN 

END 


SU3RQ0T  INF.  PRTRES 


C*  DECK  PRTRES 

SUBROUTINE  P R  TR E  S  (  L  >  I  T  P  ) 

C* 

C*  PRTRES  PRINTS  OUT  THE  RESOURCE  STATUS  — 

C*  AT  THE  START  OF  COMPAT  ( I  TP  -  -1), 

C  *  AFTER  DDAY  ATTRITION  (ITP  »  0),  AND 

C*  AT  THE  END  OF  TIME  PERIOD  ITP  (ITP  -  I , . . . , MA X T P ) . 

C* 

C*  THIS  SUBROUTINE  HAS  NOT  YET  BEEN  DESIGNED  OR  PROGRAMMED. 

C* 

c* 

RETURN 

END 
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C*  DECK  PRTSUM 

SUBROUTINE  PRTSUM (LC>ITP) 

C* 

c*  PRTSUM  PRINTS  THE  SUMMARY  PRINTOUT 
C  * 

C*  COMDECK  COMINP 

COMMON  NEPD(l) 

COMMON  AAAEDA<2),AAAEDE(2),AAAEED<1)>AACA,AAPAJO<2>,AAPDOA(2) 
COMMON  AAPDDE(2)»AAPDED(1)>AAPKAD(2>2)>AAPKDA(2,2)»AAPKDE(2,I) 
COMMON  AAPKED(1,2),AASRAA(5),AA3RED,AASRFA(5),AASRFE(5),AASRID 
COMMON  ABANM(2)>ABAVLS(2)>ABCAS> ABESGS(2)>A3FASS(2) 

COMMON  A8FSM(2),ABFVS(2),ABPDA(2>,ABPKA<2),ABPSA<2,2),ABPDS(2> 
COMMON  ABPKS(2»2)»ABTSC(2)»ABVGSS(2)»ABRSAM(2) 

COMMON  AEWD,AESCAB(2),ASWF,ATABT(2,3>,ATTWGT,AVAILE(5,2> 

COMMON  AINTCT,AVAILT(5>2,3),AVALED(5,2),AWRCB8 

COMMON  BACCDW(6)>BACPCK(6)»BAREAO(5)*BARELQ(5)>BARLQ(5)>BMTMIN(51 
COMMON  BARLTH(5)>BECDW(6),BEDW(IO),BSIBAR(5),8SSNDS>BUCAP 
COMMON  CACDWO>CAPMLQ(5)>CAPMQ(5),CAPMR»CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSCDW0 
COMMON  DDFAC  UO)  *OOPKC  (10)  >ODPKS(  10)  ,DDRKAAUO)»DDRKBAI  10) 

COMMON  DDRSA(10),DDSPA(10),DLIA,D1T(2,3)»D2T(2,3) 

COMMON  ESIR> ESR 0 ( 5 ) , E NA C DT ( 4 ) , EN AC D S ( 10  ) 

COMMON  FA  AC  A  (5), F FAC  At  5  EFFACE (5  >, F ACOB ( 5, 2 > > FHS K < 2) 

COMMON  FM3(6)»FPPLl>FPPL2>FSTAQt5)fFSTGAQ(5) 

COMMON  HRMAAW»HRMASW»HRMURG»HRTAAW»HRTASW»HRTURG 

COMMON  IAADA,IAAED,IABAF,IA8AW,IABAEQ,IATKRT<5),IATRIA,ICTl<5) 
COMMON  IDDAC,IDDAS,IKRAS(5),IPLADA,IPLAED,IRSU8At5),ISSBR,ISSRB 
COMMON  I P  P  A  F  >  IPPAW 
COMMON  LGTHMP(6)»LTFMP(6) 

COMMON  MAXTP,MIMP 

COMMON  NABSAM»NKRB»NKRS»NKBDPLjNLQC»NPPSAM 

COMMON  PARK>PASS(2)»PBDRN(2)»PB0RS(2)»PBKRN(2)»PBKRS(2) 

COMMON  P0IN»PKAT1/PK0F1»PKASW»PKIIN*PKIN»PKPLDT(A)»PKPL1>PK.PL2 
COMMON  PKSSTIA  > » PRSM ( 10* 5# 6 ) > PR VINO ( 5 ) 

COMMON  PLAEDA(2)»PLAEDE(2)>PLAEED»PLBLBD(2»5)>PLCA(5) 

COMMON  PLFDLL(5*5*2)»PIPAJ0(3)>PLPDDA(2)>PLPDDE(2)*PIPDED 
COMMON  PLPKAD(3j2)»PLPKDA(2»3)jPLPK0E(2)>PLPKED(2) 

COMMON  PAFCNF,PFFCNF,PPS0RR(2,5) ,PPPSAS(2,2),PPPKSA(2,2) 

COMMON  PPRSAM(2),PPAVSS(2)»PPPKAS(2)>PPAVLS(2»5),PPANMS(2) 

COMMON  PPP0SA(2)»PPFSVS(2)>PPTSCS(2)»PPCAL(5) 

COMMON  PPPDAS(2)»PPFASS(2)*PPAEGS(2)*PPFASM(2) 

COMMON  RACCDW(10)»RACPCK(10)*RECOW(10)*REOW(6)*RARBAB(3) 

COMMON  RS ( 10* 5 ) *RSIBAR ( 5) 

COMMON  SBFBCF,SBF3CS,SBFRFA(5)*SBFRFC*SBFRSA(5),SBFRSC 
COMMON  SBPBDF>SBPBDS,SBPBKF»$BPBKS*SBPFDB,SBPFKB*SBPSDB>SBPSKB 
COMMON  SMALLR*SSOAAW*SSDASW*SSDURG»STARQ(5)>STSALV*SU8SOR»SHEL 
COMMON  ssbacr:b),sscfa,ssfrsv(b,5),sspbor,sspbkr,$sprob,ssprkb 
COMMON  $SFBAK(2,8 l.SSPRKC 

COMMON  TAB10T(20»4)*TAB12(20)>TAB13T(20*4),TCAP,THSCAQ(5) 

COMMON  THSCTQI5  )  >  T  P  A  S  >  TPS*  Tl>  T2  >  T  3  >  14 
COMMON  UBAFW,UBAEWL*UBASW,UBASWL 
COMMON  VBT ( 3 ) * VC AP, VI 

COMMON  WFMAAK,WFMASW,WFMPIT,WFMURG,WFTAAW,WFTASW,WFTPLT,WFTURG 
COMMON  WRLNDQ15)* WTFCBO,WVSIZ»WFPPAS<2*5) .WFTFL ( 5) 

COMMON  XAE*i*XAEWLG(5)*XASW*XASViLQ(5)*XATTCK*XEAAV>*XEASWA*XEASWN 
COMMON  XFGHTR»XPIAT>XURGS>XIA<5)*XIE<5),XNRA8 
COMMON  ZLAMPF, ZHPCAP, ZMPDl I , ZMPATTI3)*  ZMPESC * ZMPS TG 
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C* 
C  * 

c  + 
c* 
c* 

c* 

c* 

c* 

c* 


CUMDECK  COMCTF 

COMMON  /COMCTF/  X E FF C M, F GHTR I , A TTC K I , XC APST 
COMDECK  COMOUT 

COMMON/ COM  OUT/  CWPPASfCWTPTF,PPSQRT,NTPSIMfLTASKF(90) 
TOTAL  SELECTED  BLUE  RESOURCES  BY  CATAGORY 


C  * 

c* 

c* 


TBSHPC  * 
EFTERM  = 
IF ( X  PL  AT  • 
IF (LC .EG, 
IFCLC.EO. 
IF  < ITP. EQ 
CWTPTF  = 
GO  TO  8 

6  CWTPTF  * 
GO  TO  8 

7  CWTPTF  = 

0  CONTINUE 

TBLBDS  = 
DO  10  KBD 
DO  10  L  *  1 
10  TBLBDS  = 
TBSUBS  = 
DO  20  L*1 
20  TBSUBS  = 
TBSUBS  = 


+  XEASWN  +  XURGS 


XEAAW  +  XEASWA 
XEFFCM 
LE.O)  E FT ERM=T 8SHPC 
0  .AND*  ITP.EQ.l)  GO  TO  7 
0)  GO  TO  8 
.1)  GO  TO  6 

CwTPTF  +  EFTERM*WFTFL (LC ) 
EFTFRM*WFTFL (LC ) 


0. 


0. 

•If NKBDPL 
f  NLOC 

TBLBDS  ♦  PLBLBD(KBD,L) 

0. 

NLOC 

TBSUBS  +  BSIBAR(L) 
TBSUBS  +  BSSNDS 


TOTAL  SELECTED  RED  RESOURCES  BY  CATAGORY 


TRSHIP  *  0. 

IF(NKRS*LT*3)  GO  TO  AO 
NKRSS  *  NKR$  -  2 
DO  30  L  =  1 #  NL OC 
DO  30  KR  SS  *lf  NKRSS 
KRS=KRSS+2 

30  TRSHI P= TRSH I P+RS { KRS , L ) 

40  CONTINUE 
TR  SUB  S  -  0. 

IF(NKRS-l)  70,60,50 
50  DO  55  L  =  1 ,  N  L  DC 
55  TRSUBS  =  TRSUBS 
GO  TO  80 

60  DO  65  l *  If  NLOC 
65  TRSUBS  *  TRSUBS 
GO  TO  00 
70  DO  75  L  =  If  NLOC 
75  TRSUBS  =  TRSUBS  *  RSIBAR(L) 
30  CONTINUE 
TRESCS  =  0. 

TRBMRS  =  0. 

DO  90  I  A B  =  1 , 2 
DO  85  KR 8  =  1 , NKRB 


+  R  S ( If  L  )  ♦  R  S ( 2 , L )  +  RSIBAR(L) 


+  RS(1,L)  +  RSIBAR(L) 
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85  T  R  ft  MR  $  -  TRBMRS  ♦  A  TAB  T  M  A  B  #  KP  B  ) 

TPESCS  *  T  PE  SC  S  ♦  AESCAB(IAB) 

90  CONTINUE 

C* 

C*  RECORD  SUMMARY  OUTPUT  FJP  CURRENT  ITP 

C* 

M$T*10 

WRITE(MST#1030)  I  TP# XE FT CM# CWTP TF , TBSHPC# TPSUBS# XF GHTR , X  A TTCK , 
1 TBLBC $, PPSCR T, CWP PAS, TR SHIP, TP  SUBS# TRBMRS, TP ESCS, A  INTCT 
1030  FORMAT ( 1H  , I  3 , 2F 9 . 4 , 2F 8 . 2 , 5F 9 . 2 , 4 X , 2 F 8 . 2 , 3F 9 • 2 ) 

C* 

PPSORT  *  0, 

C  + 

RETURN 

END 


SUBROUTINE  SHPSHP 


C  * 

c  * 
c* 
c* 
c 

c  * 


DECK  SHPSHP 

SUBROUTINE  SHPSHP(L,ITP) 

SHPSHP  MODELS  SURFACE  SHIP  VS  SURFACE  SHIP  WARFARE 


COM DECK  COMINP 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

C  OM MON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


NEPD(l) 

AAAFDA(2),AAAEDE (2),AAAFED( 1) ,  A  AC  A ,  AAPAJO(2) , AAPDDA(2) 

AAPDDE(2),AAPDEDtl),AAPKAD(2,2),AAPKDA(2,2),AAPKDE(2,l) 

AAPKED(1,2),AASRAA(5),AA$RED,AASRFA(5),AASRFE(5),AA$RID 

ABANM(2),ABAVLS(2),ABCAS,ABESGS(2),ABFASS(2) 

ABFSM(2),A9FV$(2),ABPDA(2),ABPKA(2),ABPSA(2,2),ABPDS(2) 

ABPKS (2, 2), ABTSC (2) ,ABVGSS (2 ), ABR$AM(2 ) 

AEWD,AESCAB(2),A$WF,ATABT(2,3),ATTWGT,AVAILE(5,2) 

AINTCT,AVAILT(5,2,3),AVALED(5,2),AWRCBB 

BACCDW(6),BACPCK(6),BAREAQ(5),BARELQ(5),BARLQ(5),BMTMIN(51 

BARLTH(5),3FCDW(6),BEDW(10),B$IBAR(5 )  > B SSND S , BUC AP 

CACDW0,CAPMLQ(5),CAPMQ(5),CAPMR,CAPSTQ(5) 

CPAGV,CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSCDW0 

DDFAC(10),DDPKC(10),DDPKS(10),DDRKAA(10),DDRKBA(10) 

DDRS  A (10), DOS  PA <10),DLIA,D1T(2,3),D2T(2,3  ) 
ESLR,ESRQ(5),FNACDT(4),ENACDS<10) 
FAACA(5),FFACA(5),FEACE(5),EAC0B(5,2),FHSK(2) 
FM3(6),FPPL1,FPP12,FSTAQ(5),FSTGAQ(5) 

HRMAAW,HRMAS W, HRMURG,HRT A  A W , HR T A S W , H R TUR G 

IAADA, IAAED, IABAF ,IABAW,IABAEQ, IATKRT (5) , IATRIA,ICTL(5) 

IDDAC,IDDAS,IKRAS(5),IPLADA,IPLAED,IRSUBA(5),I$SBR,ISSRB 

IPPAF,IPPAW 
LGTHMP(6) ,LTFMP(6) 

MAXTP,MIMP 

NABSAM,NKRS,NKRS,NKBDPL ,NLOC ,NPPSAM 

PARK,PASS(2),PBDRN(2),PBDRS(2),PBKRN(2),PBKRS(2) 

PDIN,PKAT1,PKDF1,PKASW,PKIIN, PKIN, PKPIDT (4) ,PKPL1,PKPL2 

PKSST(4),PRSM(10,5,6),PRWLNQ(5) 

PLAEDA(2),PLAEDE(2),PIAEED,PLBLBD(2,5),PLCA(5) 

PLEDLL(5, 5,2),PLPAJQ(3),PLPDDA (2)  ,PLPDDE (2) ,PLPDED 
PLPKADt  3, 2) ,PLPKDA(2, 3) , PLPKDE (2 ) , PLPKED(2) 
PAFCNF,PFFCNF,PPS0RR(2,  5),  PPPSAS(2,2)  ,PPPKSA(2,2) 
PPRSAM(2),PPAVSS(2),PPPKAS(2),PPAVLS(2,5),PPANMS(2) 

PPPDSA(2  ),PPFSVS(2),PPTSCS (2) , PPCAL (5  ) 
PPPDAS(2),PPFASS(2),PPAEGS(2),PPFASM(2) 

R ACCD W (10), RACPCK(IO), RE  CD w (10), RE DW(6),RARBAB (3) 

RS (10,5),RSIBAR(5) 

SBFBCF,SBF3CS,S8FRFA(5),SBFRFC,S8FRSA(5),$BFR5C 
SBPBDF,SBPBDS,SBPBKF,S9PBKS,SBPFDB,SBPFKB,SBPSDB,SBPSKB 
SMALLR, SSDAAW, SSDASW, SSDURG, STARO( 5 ) , STSALV, SUBSOR, SHEL 
SS9ACR(B),SSCFA,SSFRSV(8,5),$SP3DR,SSPBKR,SSPRDB,SSPRKB 

SSFBAK(2,8  ),SSPRKC 

TAB10T (20,4  ) , TAB12( 20) ,TAB13T (20,4),TCAP,THSCAO(  5) 

THSCTQ(5) ,TPAS,TPS,T1,T2, T3,T4 
UBAEW, UBAEWL,UBASW, UBASWL 
VBT(3),VCAP,VI 

WFMAAW,  WFMASV.,  WFMPL  T,  WFMURG,WFTAAW,  WFTASW,  WFTPLT,  WFTURG 
WRLNDO(5),WTFCB0,WVSIZ,WFPPAS(2,5),WFTFL(5) 
XAEW,XAFWL0(S),XASW,XASWLQ(5),XATTCK,XE4AW, XE A S W A , XE A S WN 
XFGHFR,XPLAT,XURGS,XIA( 5) ,XIE( 5),XNRAB 
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COM NON  ZL  A M P  F  ,  Z  M  PC  A  P  >  ZMPDL I,ZMPATT (3 ) ,  ZNPESC  , ZMPSTG 

C 

C*  COMDECK  CONCTF 

COMMON  /COMCTF/  XE F F C M , F GH TR I , A T TC K I , XC A P S T 

C  * 

c 

C  *  CQMOECK  COMSGR 

COMMON/COMSQR/  F T SDR U , A T S OR U 
C* 

c 

DIMENSION  B3$<5),aSSK0(5,2),BSSK(5),BSNEW(5),RSSV(8),RSSKAC(8) 
DIMENSION  RSS (  8  )  ,  R  S  S  K  0  ( 8,2 ) ,  R  S  S  K  ( 8) ,RSNEW(8  ) 

WRITE (6, 1000)  ITP,L 

1000  FORMAT( 25HOREMINDER — THIS  IS  PERIOD  ,I4,25H,  TASK  FORCE  IS  IN  REGI 
ION# I3t 1H.  ) 

WRITE (6,1) 

WRITE  ( 6  ,  501) 

1  F  OR  M  A  T  (  5  1H0 - > 

5  01  F  OR  MA  T ( 24H  START  SUBROUTINE  SHPSHP) 

IF ( NK  RS  .LT.  3)  GO  TO  98 
C 

C  BLUE  SHIPS  IN  TASK  FORCE 
C 

BSSCX  )  *  X  P  L  A  T 
BSS (2 ) *  X  E  A  A  W 
BS  5  (3)sXEASWA 
BSS (4)*XEASWN 
BSS (5  )  *  XUR  GS 
DO  6  KB  S  S  =  1 ,  5 
BSSK0(K9SS,1)=0. 

BS$K0(KB$S#2)*0. 

BSSK(KB$$)*0* 

6  CONTINUE 
C 

C  RED  SURFACE  SHIPS  VULNERABLE  TO  ATTACK 
C 

NKR  S$  *NKRS-2 
TR  S  S V  =  0  « 

DO  3  KRSS*1#NKRSS 
KRS  *KR  S  S  +  2 

PSSV(KRSS) «RS (KRS*L  >* SSFR SV (KRSS#  L) 

RSSK AC (KRSS ) =0. 

RS$KO(KR$S, 1 ) =0. 

RSSK0(KRSSf 2) *0. 

RSSK (KRSS ) *0* 

TRSSV=TRSSV+RSSV  (KRSS  ) 

3  CONTINUE 

IF { TRSSV  .GT.  0, )  GO  TO  4 
WRITE (6,504) 

5C4  F  OR  M A  T ( 7  2H  NO  VULNERABLE  RED  SURFACE  SHIPS  IN  REGION,  HENCE  NO  COM 
1 3  A  T  TAKES  PLACE.  ) 

WRITE(6,561) 

WR ITE (  6,  565  )  (8$S( I  )  , 1*1, 5) 

WRITE (6,567)  XEFFCM 
GO  TO  99 

4  CONTINUE 
ISS  =0 


SUBROUTINE  SHPSHP 


IBAOO 
F  P  K  =  0  • 

IF  (  X  PL  AT  ,  EQ.  0. )  GO  TO  10 
C 

C  BLUE  AIRCRAFT  FROM  CARRIER 
C 

FA* AM  INI (FGHTR I*XEFFCM, X FGH TR-F T SO R U ) 

FA*AMAX1(0.0,FA) 

FA*AMAX1(FA-BUCAP*XCAPST,0. ) 

AA=AMIN1(ATTCKI*XEFECM, XATT  CK-ATSORU ) 

A  A  =  AM  AX  1  (  0 . 0,  A  A  ) 

3AC A*SSCFA+FA+AA 
B ACR  *0. 

DO  5  KR$$*1,NKRSS 
8ACR=8ACR+SSBACR(KRSS )  *  P  S  S  V (KRSS ) 

5  CONTINUE 

WRITE  (6/505  )  BACA, BACR 

505  F  OR  MA  T { 2  9H  BLUE  AIRCRAFT  FROM  C AR R I ER  — , F 8 • 2, 6 3H .  BLUE  AIRCRAFT  R 
1EQUIRED  TO  DESTROY  ALL  VULNERABLE  RED  SHIPS  —  /F8.2/1H.  ) 

FAK  *  0. 

A  AK  *  0. 

IF (BACR. LE. 0.0)  GO  TO  150 

I  F  (  A  A  .  L  T  .BACR  .AND.  SSCFA.GT.O.)  GO  TO  120 
A  A  F  =  AMIN1 ( AA, B ACR  ) 

DQ  110  KRS$*1,NKRSS 

110  A  A  K  -  A  AK  +  SSBACRCKRSS  )*RSSV(KRSS ) * S $ FB AK U , KRS S >*AAF/BACR 
ATSORU  *  ATSORU  ♦  { AAF-AAK ) *P AFCNF 
GO  TO  140 
120  CONTINUE 

A  A  F  *  AMIN1 ( AA, BACR ) 

FAF  *  (BACR-AAF ) /SSCFA 
FAF  =  AMIN1(FA,FAF) 

00  130  KR  S  5  =  1 / NKR  S  S 

AAK  -  A  AK  4-  SSBACR(KR$$)*RSSV(KRSS)*SSFBAK(1,KR$S)*AAF/BACR 
FAK  -  FAK  >  SSBACRCKRSS  )*RSSV(KRSS )*SSFBAK(2,KRSS )*FAF/BACR 
130  CONTINUE 

ATSORU  =  ATSORU  +  (AAF-AAK )  *PAFCN  F 
ETSORU  *  FTSORU  ♦  ( F AF-F AK ) *PFFCNF 
140  CONTINUE 

XATTCK  =  XATTCK  -  AAK 
XFGHTR  =  XFGHTR  -  FAK 
150  CONTINUE 

WRITE (6/510)  XATTCK/ AAK/ ATSORU 
WRITE (6/511)  XFGHTR, FAK/FTSORU 

510  FOR  M A  T ( 9H  XATTCK*, F10. 4, 7H,  AAK*,F10.4,10H,  ATSORU* 10. 4 ) 

511  FORMA  T ( 9H  X F GH TR  =  , F 1 0 . 4 , 7H ,  F AK - , F 10 . 4, 10H,  FTSORU*, F 10. 4 ) 

I F ( 3  AC  A  .LT.  BACR)  GO  TO  7 

WRITE(6, 507) 

50  7  FORMAT ( 1 1 5 H  SINCE  THERE  ARE  SUFFICIENT  BLUE  AIRCRAFT  TO  DFSTROY  AL 
1L  VULNERABLE  RED  SHIPS/  THERE  IS  NO  ATTRITION  TO  BLUF  SHIPS. /1H  , 

?  5 1 H ( T  HE  SHIP-TO-SHIP  INTERACTION  DOES  NOT  TAKE  PLACE.)) 

I  B  A  C  *  2 
GO  TO  50 
7  I B  AC  s  1 

FRK=B AC A/B ACR 
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10  CONTINUE 


o  o  o 
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TRSS-O. 

00  S  KRSS«1,NKRSS 
RSSKAC(KRS$)-RSSV(KP5S)*FRK 
RSS (KRSS)=R  SSV(KRSS )-P5SK AC (KRSS  ) 

TPSS*TRSS+RSS(KR$S) 

8  CONTINUE 

SURFACE  SHIP  VS  SURFACE  SHIP  INTERACTION 
ISS-1 

TBSSNC-XEAAW+XEASWA+XEASWN+XURGS 
TBSS*TBSSNC+XPLAT 
T  B  A  =  T  B  S  SNC 
TBSSR -TBSSNC 
TRSSR-TRSS 
ITER-1 
C  ATTRITION  TO  RED 

11  I  F  (  T B  A  .  L E  •  0.)  GO  TO  2. 0 
IF<TRSS  .LE.  0,)  GO  TO  20 
IFIISSBR  .EQ.  1)  GO  TO  15 
TFRM»1.-(1*-$SPBDR)**TRSS 
TERM*TERM*SSPBKR/AMAX1(1.#TRSS) 

TEPM=< l.-TERM)**TBA 
FRK -  1 .-TERM 
GO  TO  1? 

15  FRK«SSPBDR*<l.-<l,-S$PDKR/AMAXm.,SSPBDR*TRSS)  )**TBA  ) 
17  DO  19  KRSS-l^NKRSS 

RSSKO(KRSS,ITER)-RSS(KRSS)*FPK 
TR$SR*TRSSP-RSSKO(KPSSf ITER ) 

19  CONTINUE 

20  IF  ( ITER  .EO.  2)  GO  TO  34 
TRA-TRSSR 

C  ATTRITION  TO  BLUE 

21  IF ( TR A  .LE.  0. )  GO  TO  30 

I  F ( TBSS  . LE .  0. )  GO  TO  30 
TBSSR=TPSSNC 

I  F (  I  S  S  R  B  .EO*  1)  GO  TO  25 
TEPM»1.-<1.-S$PRDB)**TBSS 
TEPM-TERM/AMAXKl*  >  TBSS) 

TC*I.-TERM*SSPRKC 

ts«i.-tepm*ssprkb 

FBCK»1.-TC**TRA 
F8$K«1#-TS**TRA 
GO  TO  27 

25  TERH*SSPPDB/AMAX1( 1. .TBSS) 

FBCK*l.-( 1«“S$PRKC*TE*M)**TRA 
FBSK*l*-(  l.-SSPPKB*TERH)*+TPA 
27  DO  29  KBSS=2>5 

BSSKO(KBSS*ITER)*BSS(KBSS)*FBSK 

T8SSR»TBSSR-BSSK0<KBSS,ITEP) 

29  CONTINUE 

BSSKCtl f  ITER )*XPLAT*FBCK 

30  IF ( ITER  .EG.  2)  GO  TG  32 

C  BRANCHING  LOGIC  FOP  SHOOT— AhD-S HOOT-BACK  ATTRITION  SCHEME 
ITER-2 
TRA-TRSS 
GO  TO  21 
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C 


C 

C 

C 


c 

c 

c 


32 
3  4 


TBA-T8SSR 
GO  TO  11 
CONTINUE 


OMEGAl=TBSS/ ( TBSS  +  TRSS  ) 

0MEGA2*  1 .-OMEG A1 
DO  40  KBSS-1,5 

BSSK(KBSS)=0MEGA1*BSSK0(KBSS>1)+0MEGA2*B$SK0(KBSS»2) 

BSNEW(KBSS)«BSS(KBSS)-BSSK(KBSS) 

40  CONTINUE 
OEGF  *0* 

IFUPLAT  .GT .  0.  )  DEGF  =  BSSK(  1)  /  XPLAT 
XEFFCM=XEFFCN*(1,-0EGF) 


36NLW(1 ) *X  P  L  A  T 
B  S  5K ( 1 ) *  0 . 

DO  45  KRS5*1jNKRSS 

kD^-1!DccSo  =  °MEGA1  +  RSSKO(KRSS,1,+OMEGA2*RSSKO(KRSS>2) 

KKbsKRb5+2 

RSNEWIKRSS  )»RS(KRS,L  J-RSSKAC (KRSS  )-R  SSK  C  KRSS  ) 

4!)  CONTINUE  1 


I  F ( I BAC . 60. 0)  GO  TO  60 
COMPUTE  ATTRITION  TO. AIRCRAFT  ON  CARRIERS 
ENACD  *  0. 

PIACD  *  0. 

F  AC  D  =  0. 

FDMCV  *  0. 

ADMCV  •  0. 

TIACFT  *  ATTCKI  +  FGHTRI 
IFfTIACFT.LE.O.)  GO  TO  47 
I  F ( F BC K . L E • 0 • )  GO  TO  47 
ATT  *  BSSK ( 1 ) / F  BCK 
DO  46  KR  S  *3  #  NKRS 
K  R  S  S  *  KR  S-2 


FR  AC  - RSS (KRSS ) /TRSS 

ENACD  =  ENACD  +  ENAC D S ( KRS ) *FR AC 

46  CONTINUE 

PIACD  *  ENACD/TI ACF  T 
PIACD  =  AMIN1  (0.9999, PIACD) 

FACD  =  1 •-( 1 .-PIACD ) **ATT 
FDMCV  *  XFGHTR*FACD 
ADMCV  -  XATTCK*FACD 
XFGHTR  =  XFGHTR  -  FDMCV 
XATTCK  =  XATTCK  -  ADMCV 

47  CONTINUE 
GO  TO  60 


3LUE  AIRCRAFT  DESTROY  ALL  VULNERABLE  RED  SHIPS 

50  CONTINUE 

DO  51  KR  $S  *1  * NKRSS 
RSSKAC(KRSS)=RSSV(KRSS  ) 

KRS  =  KR  S  S  +  2 

RSNEW(KRSS)*RS(KRS,L)-RSSKAC(KRSS) 

51  CONTINUE 


OUTPUT  RESULTS 


60  CONTINUE 
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C 

C 

C 


IFUBAC  .NE. 
WRITE (6,561) 
WRITE  (6,565  ) 
WRITE (6, 567) 
GO  TO  70 
61  WRITE (6, 560 ) 
WRITE (6,561) 
WRITE (6,562  ) 
WR ITE (6, 563  ) 
WRITE (6, 564) 
WRITE  (6,566) 


2)  GO  TO  61 


( B  S  S (  I  ),I« 
XEFFCM 


( 


1,5  ) 


BSS  (K8SS ),KBSS*1, 5 ) 

(  BSSK(KBSS ),KBSS=1, 5) 

(BSNEW(KBSS ),KBSS*1, 5) 

DEGF, XEFFCM 

560  F0RMAT(26h  BLUE  SURFACE  SHIP  RESULTS) 

561  FORMAT ( 1 H  ,4X,17HKIND  OF  BLUE  SHI P, 21X , 33HX PLAT 
1WN  XURGS  ) 


XEAAW  XEASWA  XEAS 


562  FORMAT ( 1H  , 4 X , 32H  I N I T I A L  BLUE  SHIPS  IN  TASK  F ORC E , 4 X , 5F 7 . 2 ) 

563  FORMAT ( 1H  ,4X,20HBLUE  SHIPS  DESTROYED, 16X, 5  F  7  •  2  ) 

564  FORMAT ( 1H  , 4 X , 34HR E S UL T ANT  BLUE  SHIPS  IN  TASK  F OR CE , 2X , 5 F 7 . 2 ) 

565  FORMAT ( 1H  ,4X,24HBLUE  SHIPS  IN  TASK  FORCE ,  1 2X, 5F  7 . 2  ) 

566  FORMAT! 1H  , 4X, 30HC ARR I E R  CAPABILITY  DEGRADEO  BY,F7.4,49H,  NEW  RELA 
1TIVE  CARRIER  CAPABILITY  (XEFFCM)  EQUAL  $ , F 7 , 4 , 1H .  ) 

567  FORMAT ( 1H  , 4 X , 4 3HR EL  A T I VE  CARRIER  CAPABILITY  (XEFFCM)  EQUALS, F7. 4, 
1 1 H .  ) 

70  WR  I  TE  (  6,  570  ) 

WRITE (6, 571)  (  I,  I  *  3 , N KR  S ) 

WRITE (6,572)  (  RS(KRS,L),KRS«3,NKRS) 

WR  I  TE (  6,  57  3  )  (RSSV(KRSS),KRSS*1,NKRSS) 

I F (  I  B  AC  .GT.  0)  WRITE(6,  574  )  (RSSKAC(KRSS),KRSS  =  1,NKRSS) 

IF(ISS  .EG.  1)  WRITE (6,  575)  ( RS S K ( K R S S  )  , KR S S *  1 , NK R S S  ) 

WRI TE (6,576  )  ( R $ NE W ( K R S S  )  , K R S S *  1 , NKR S S  ) 

570  FORMAT ( 1 18H  RED  SURFACE  SHIP  RESULTS  ( NOTE — RED  SHIP  KINDS  1  AND  2 
1  ARE  SUBMARINES,  WHICH  DO  NOT  PARTICIPATE  IN  THIS  INTERACTION.)  ) 

571  FORMAT ( 1H  ,4X,16HKIND  OF  RED  SH I P , 20 X , 8  I  7  ) 

572  FORMAT ( 1H  , 4 X , 2 7 H I N I T I  A L  RED  SHIPS  IN  R E G I ON , 9 X , 8 F 7 . 2  ) 

573  FORMAT ( 1H  ,4X,36HRED  SHIPS  VULNERABLE  TO  BLUE  ATTACK  ,8F7.2) 

574  FORMAT ( 1H  ,4X,36HRED  SHIPS  DESTROYED  BY  BLUE  A  I RC R A F T , 8 F 7 . 2 ) 

575  FORMAT ( 1H  ,4X,36HRED  SHIPS  DESTROYED  BY  BLUE  SHIPS  ,BF7.2) 

576  FORMAT ( 1H  , 4X , 29HR ESUL T ANT  RED  SHIPS  IN  R E G I  ON , 7 X , 8 F 7 . 2 ) 
IF(IBAC.NE.l)  GO  TO  75 

PRINT  284,  ENAC  D, P  I  AC  D, F  ACD 
PRINT  285,  FDMCV,XFGHTR 
PRINT  286,  AOMCV, XATTCK 

284  FORMAT  ( 8H  E  N  AC  D  *  ,  F  1 0  •  4 , 8H  P I  AC D « , F 1 0 . 4 , 8 H  FACD*,F10.4) 

285  FORMAT  ( 8H  F DMC V « , F 1 C . 4 , 8 H  X F GH T R * , F 1 0 . 4 ) 

286  FORMAT  (8H  ADMC  V= , F 1 0 • 4 , 8H  X  A T TC K * , F 1 0 . 4 ) 

75  CONTINUE 


UPDATE  APPROPRIATE  QUANTITIES 

00  81  K R  S  S  *  1 , NKR  S  S 
KRS  =KR$S  +  2 

R  S ( KR  S , L ) =RSNEW(KRSS) 

81  CONTINUE 

IF (  1 9  AC  .EQ.  2)  GO  TO  85 
X  E  A  A W  =  BSNEW(Z) 
XEASWA=BSNEW(3> 
XEASWN«BSNCW(4) 

XURGS*  BSNEWC5) 
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85  CONTINUE 
GO  TO  99 

98  WRITE  ( 6 ,  598)  NKRS 

598  FORMAT ( 6H  NX R S  =  > I  2 > 1 1 3H  CURRENTLY •  NKRS  MUST  3E  AT  LEAST  3  (I.E.# 

1  THERE  MUST  BE  AT  LEAST  ONE  KIND  OF  RED  SURFACE  SHIP).  PROGRAM  ST 

2  OP S  .  ) 

STOP  6407 

99  WRITE  (6,599) 

WRITE<6,2) 

599  FORMAT( 25H  END  OF  SUBROUTINE  SHPSHP) 

2  F0RMAT(51H  - ) 

RETURN 

END 


SC'RPJUTINE  SUBSUB 


C*  DECK  SUBSUB 

SUBROUTINE  SUBSUB(L) 

C* 

C*  SUBSUB  H  DDE  L  S  3LUE  SUBMARINES  IN  DIRECT  SUPPORT  OF  THE  TASK  FORCE 

C*  VERSUS  RED  SUBMARINES  AND  RED  SURFACE  SHIPS  IN  THE  SAME  LOCATION 

C* 

C 

C*  COMDECK  COM  I N  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE<2),AAAEED(l>»4ACA,AAPAJO(2),AAPDDA(2) 
COMMON  AAPDOE(2),AAPDED(l),AAPKAD(2»2),AAPKDA(2,2),AAPKDE(2,l) 
COMMON  AAPKED(1,2),AASRAA(5),AASRED,A4SRFA(5),AASRFE(5),AASRID 
COMMON  ABANM(2),ABAVLS(2)>ABCAS»ABESGS(2)»ABFASS(2) 

COMMON  4BFSM(2),ABFVS(2),ABPD4(2),A8PKA(2),ABPSA(2,2),ABPDS(2) 
COMMON  ABPKS(2»2)>ABTSCt2)»ABVGSS(2)jABRSAM(2) 

COMMON  AEWD, A E SC  A B ( 2  )  , AS ^ F , A  TAB T( 2, 3  )  , A T T WGT , A V A I L E ( 5 , 2 > 

COMMON  A1NTCT, AVAIL Tt 5,2,3  ), AVAL  EDI 5> 2  ), AWRCBB 

COMMON  BACC0W(6),BACPCK(6),3AREAQ(5),BARELQ(5>,8ARLQ(5),BMTMIN<5) 
COMMON  BARLTH(5),BECDW(6),BEDW(10),BSIBAR(5),BSSNDS*BUCAP 
COMMON  CACDWO,CAPMLO(5)>CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10),CPRPK(10),CPRSCK(6),CSC0W0 
COMMON  DDFAC(10)jDDPKCtlO),DDPKS(10),DDRKAA(10),DDRKBA(10) 

COMMON  DDRSA(10)>DDSPA(10)>DLIA»D1T(2»3)>D2T(2»3) 

COMMON  ESLR»ESRQ(5)fENACDT(4)»ENACDS(10) 

COMMON  FAACA(5),FFACA(5),FFACE(5),FAC0B(5»2)>FHSK(2) 

COMMON  FM3(6)»FPPL1»FPPL2»FSTAQ{5)*FSTGAQ(5> 

COMMON  HRMAAW,HRMASW,HRMURG,HRTAAW,HRTASW,HRTURG 
COMMON  IAADA>IAAED>IABAF,IABAW,IABAEQ>IATKRT(5),IATRIA,ICTL(5) 
COMMON  IDOAC> IDDAS* IKRAS( 5)* IPLADA>IPLAED» IRSUBA( 5)> ISSBR, ISSRB 
COMMON  I  P  P  A  F  >  IPPAW 
COMMON  LGTHMP(6) >  LTFMP (6) 

COMMON  MAXTP>MIMP 

COMMON  NABSAM»NKRB»NKRS>NKBDPL»NLOC»NPPSAM 

COMMON  PARK,PASS<Z>>PB0RN(2),PBDRS(2),PBKRN(2),PBKRS<2) 

COMMON  PDIN»PKAT1,PKDF1,PKASW>PKIIN*PKIN>PKPLDT(4)»PKPL1>PKPL2 
COMMON  PKSST(4)>PR$M(10*5>6)>PRWLNQ(5) 

COMMON  PLAEDA(2),PLAEDE(2)>PLAEE0,PLBL8D(2»5),PLCA(5) 

COMMON  PLFDLl<5»5*2) >  PLPA JO( 3) »  PLPDDA  <2 )>  PlPDDE ( 2) >  PLPDED 
CUM MON  PLPKAD(3,2),PLPKDA(2,3)»PLPK0E(2),PLPKED(2) 

COMMON  PAFCNF»PFFCNF»PPSORR(2>5)»PPPSAS(2»2)>PPPKSA(2>2) 

COMMON  PPRSAML2 ) »  PPAVSS ( 2) »  PPPKAS ( 2 ) »  PPAVLS (2»  5) »  PPANMS (2  ) 

COMMON  PPPDSA(2)iPPFSVS(2)»PPTSCS(2)»PPCAL(5) 

COMMON  PPPDAS(2)jPPFASS(2)>PPAEGS(2)»PPFASM(2) 

COMMON  RACCDW<10),RACPCK(10),RECDW(10),REDW(6),RARBA8<3) 

COMMON  RS(10,5),RSIBAR(5) 

COMMON  SBFBCF>SBFBCS»SBFRFA(5)>SBFRFC»SBFRSA(5)»SBFRSC 
COMMON  SBFBDF,SBPBDS,SBPBKF,SBPBKS,SBPFDB,SBPFKB,S8PSDB,SBPSKB 
COMMON  SMALLR*SSDAAL,SSDASW»SSDURG,STARO(5),STSALV>SUBSOR,SHEL 
COMMON  SSBACR(B),SSCFA,SSFRSV(8, 5 > , S S PBDR, SS P BKR , S S PRDB , SS PRK8 
COMMON  SSFBAK(2»8)»SSPRKC 

C DM MON  TAB10T(20,4>,TAB12(20),TAB13T(20,4),TCAP,THSCAQ(5> 

COMMON  THSCTQ(5),TPAS>  TPS,T1,T2, T3,T4 
COMMON  UBAEW>UBAEWL*UBASW,U3ASWL 
COMMON  VBT(3)>VCAP,VI 

COMMON  WFMAAW, WFM A S W , WF MPL T , WF MURG* WF  T  A  AW  ,  W  F  T  A  S  W>  WF  TP  L  T  ,  WF  T  UR  G 
COMMON  WRLNDO<5),WTFCBO*WVSIZ,WFPPAS<2>5)> WFTFL  <  5) 

COMMON  XAEW,XAEWLQ(5),XASW,XASWLQ(5),XATTCK,XEAAW,XEASWA,XEASWN 
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COMMON  XFGHTR#XPLAT#XURGS#XIA(5)#XIE(5)#XNRAB 
COMMON  ZLAMPF, ZMPCAP, 2MPOL I#ZMPATT(3 ), ZMPESC# ZMPSTG 
C 

DIMENSION  RSKK(10)#RSNEW(10) 

C 

WRITE (6, 1) 

WRITE ( 6  >  501) 

1  - - 

501  FOR  MA  T ( 24H  START  SUBROUTINE  SUBSUB) 

I F ( NK RS  .LT.  3)  GO  TO  98 
C 

C  SET  UP  NUMBERS  OF  COMBATANTS 
C 

WRITE (  6  #  50  5)  L 

505  FORMAT { 2 4H  TASK  FORCE  IS  IN  REGION  #13) 

I F ( B  S  SND  S  .LE.  0* )  GO  TO  97 
BSA*BSSNDS 
BSC$*BSA*SBFBCS 
R5T  =  RS(  1*  L  ) +R  $ ( 2*  L ) 

R  FT*0 . 

DO  5  KRS  *3  #  NKRS 
RFT-RFT+RS (KRS#L) 

5  CONTINUE 

IFtRST+RFT  .LE.  0. )  GO  TO  96 
RSA*RST+SBFRSA(L) 

RSC«RSA*SBFRSC 
DO  6  KR  $  *  1 #  NKR  S 
R  SK  K ( KR  S ) *0 • 

RSNEW(KRS) *0, 

6  CONTINUE 
C 

C  COMPUTE  ATTRITION — RED  SUB/BLUE  SUB  BATTLE 
C 

CALL  BINOAT  (B$CS,R$A  # S B P B D S # S B P 9 K S #  1 .  # 1 * 1 > R S K 1 ) 
RS1«$BFRSCMR$A-R$K1) 

CALL  BINOAT (RSI  #BSA  , S B P SD B # SB P S K B *  1 .  #  1# 1 , B S K 1 ) 

CALL  BINOAT (RSC  #B$A  , $  BP SD B # S B PS K B # 1 . , 1 # 1 ,  BSK2) 
BS2*S  8FBCS* ( BSA-BSK2) 

CALL  BINOAT (BS2  #RSA  , S B P B D S # S BP 9K S # 1 . #  1, 1 , R S K 2 ) 
DEN0M«3SC$+R$C 
I F ( DENOM  . EG.  0. )  GO  TO  10 
BSK*(BSK1*BSCS  ♦  BSK2+RSC )/OENOM 
RSK* { RSK1+BSC S  +  R SK2+RSC ) /DENOM 
GO  TO  11 

10  BSK-O, 

R  SK  *0  • 

11  CONTINUE 
RS  L  =  RST-R  SK 

COMPUTE  ATTRITION— RED  SURFACE  SHIP/BLUE  SUB  BATTLE 

RF  A  *R  FT  *$B  F  RF  A ( L  ) 

BS AF=  BSA-BSK 
SSCF«3SAF*SPFBCF 

CALL  BINOAT ( BSCF  #  RF A  # S B P B D F , S B P 3 KF # 1 . # 1 , 1 , R F K  ) 
PF=SBFRFC* (RFA-RFK) 

CALL  BINOAT (RF  , B S AF # S BPFD B t S BP F KB >  1 . , 1 , 1 , BSK F ) 
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RFL  =R  FT-RFK 

TBSK=BSK+BSKF 

BSSNEW*BSSNDS-TBSK 

IF ( R  S  T  .EQ.  0.  )  GO  TO  15 

DO  14  KRS«1,2 

RSKK(KRS)=RSK*RS(KRS,L)/RST 
RSNEW (KRS) =RS(KRS,L )— RSKKIKRS  ) 

14  CONTINUE 

15  I F ( RFT  . EQ .  0 .  )  GO  TO  17 
DO  16  KRS=3,NKRS 
RSKK(KRS)=RFK*RS(KRS,L)/RFT 
RSNEW(KRS)*RS(KRS,L)-RSKK(KRS> 

16  CONTINUE 

17  CONTINUE 
C 

C  OUTPUT  RESULTS 
C 


IFtRST  .GT.  0.)  GO  TO  20 
WRITE (6, 545  ) 

545  FOR  MA  T ( 67H  NO  RED  SUBMARINES  IN  REGION  —  SUBMARINE  BATTLE  DOES  NOT 
1TAKE  PLACE  .  ) 

WRITE (6,531  ) 

WRITE(6,521)  BSSNDS 
WR ITE ( 6, 534  )  RFT 
WR  I  TE  (  6,  52  3  ) 

WRITE(6»536)  RFA 
GO  TO  35 
20  CONTINUE 

WRITE  (6, 520) 

WRITE (6, 521)  BSSNDS 
WRITE(6,522)RST 
WRITE (6,523) 

WRITE(6, 524)  RSA 
WRITE(6,525)  RSC 
WRITE (6, 526)  BSCS 
WRITE(6,527)  BSK 
WR  ITE  (6,526  )  R  S  K 
WR  ITE ( fc, 529 )  BSAF 
WRITE  (6,530)  RSL 

520^F0RMAT(56H  RESULTS  OF  THE  BLUE  SUB M AR  I N E /R E D  SUBMARINE  INTERACTION 

521  F  OR  MA  T ( 4  7H  INITIAL  BLUE  SUBMARINES  IN  TASK  FORCE - ,  F7.2) 

522  F0RMAT(1H+,63X,42HINITIAL  RED  SUBMARINES  IN  REGION - ,F7.2) 

523  FORMAT! 47H  (ALL  BLUE  SUBS  ENGAGE  IN  COMSAT.)  >F7.2) 

324  F0RMAT(1H+,63X,42HRED  SUBS  ENGAGING  IN  COMBAT - ,F7  2) 

525  F0RMAT147H  RED  SUBMARINES  CAPABLE  OF  ATTACKING  BLUE—  ,F7.2) 

526  FORM A T ( 1H+ , 6 3X , 42HBL UE  SUBMARINES  CAPABLE  OF  ATTACKING  RED — »F7.2) 

527  FORMAT ( 47H  BLUE  SUBMARINES  KILLED  BY  RED  SUBMARINES —  ,F7.2) 

528  FORMAT ( 1H+, 63X, 42HRED  SUBMARINES  KILLED  BY  BLUE  SUBMARINES — »F7.2) 

529  FORMAT ( 47H  RESULTANT  BLUE  SUBMARINES  IN  TASK  FORCE -  ,F7.2) 

530  F0RMAT(1H+,63X,42HRESULTANT  RED  SUBMARINES  IN  REGION - ,F7  2) 

IF1RFT  .LE.  0)  GO  TO  45 

WRITE (6,531) 

WRITE (6,  533  )  BSAF 
WRITF(6,534)  RFT 
WRITE (6,535  ) 

WR I TE ( 6,  536  )  RFA 
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35  WRITE (6*537 )  RF 
WRITE  (6,530)  BSC  F 
WRITE (6,539)  BSKF 
WRITE  (6,  540)  RF K 
WRITE(6,529)  BSSNEW 
WRITE  (£>j  542  )  RFL 

531  FORMAT ( 59H  RESULTS  OF  THE  BLUE  SUBMARINE/RED  SURFACE  SHIP  INTERACT 
1I0N  ) 


53  3  F0RMAT(47H  BLUE  SUBS  ATTACKING  RED  SURFACE  SHIPS - ,F7.2) 

534  FORMAT ( 1H  +  .63X.42HINITIAL  RED  SURFACE  SHIPS  IN  REGION - »F7.2) 

535  F0RMAT(47H  (ALL  BLUE  SUBS  THAT  SURVIVED  RED  SUBS)  ) 

536  FORMAT! 1H  +  , 63X.42HRED  SURFACE  SHIPS  ENGAGING  IN  COMBAT - »F7.2) 

537  FORMAT (47H  RED  SURF. SHIPS  CAPABLE  OF  ATTACKING  BLUE—  ,F7.2) 

538  F0RMAT(1H+,63X,42H8LUE  SUBS  CAPABLE  OF  ATTACKING  RED  SURF. — »F7.2) 

539  FORMAT (47H  BLUE  SUBS  KILLED  BY  RED  SURFACE  SHIPS -  »F7.2) 

540  FORMAT! 1H+, 63X, 42HRED  SURFACE  SHIPS  KILLED - »F7.2) 

542  FORMAT ( 1 H  +  >  63X.42HRESULTANT  RED  SURFACE  SHIPS  IN  REGION - »F7.2) 

GO  TO  50 
45  WRITE (6^  550  ) 


550  FORMAT! 86H  NO  RED  SURFACE  SHIPS  IN  REGION — BLUE  SUB/RED  SURFACE  SH 
IIP  BATTLE  DOES  NOT  TAKE  PLACE.) 

50  WRITE(6,560>  BSSNDS.T8SK.BSSNEW 
WRITE (6, 570) 

WR  I TE  (  6,  57 1  )  t  KRS,KRS*1,NKRS  ) 

WRITE  (6, 572  )  (RS(KRS,L1,KRS*1,NKRS) 

WRI TE  <6,  57  3  )  (RSKK(KRS),KRS*1,NKRS) 

WRITE(6,574)  (RSNEW(KRS),KRS=1»NKRS) 

560  F0RMATI23H  OVERALL  BLUE  RESULTS  —  .F7.2.28H  BLUE  SSN(DS)  INITIALLY 
1LESS.F7.2.14H  KILLED  YI E LD S  , F 7 . 2 , 1 1H  SURVIVING.) 

570  F0RMATI72H  OVERALL  RED  RESULTS.  BY  KINO  OF  RED  SHIP.  (ATTRITION  I 
IS  PROPORTIONAL.)  ) 

571  FORMAT ( 1H  .4X.16HKIND  OF  RED  SH  I P  ,  1 3  X ,  X  0 1 7  > 

572  FORMAT! 1H  , 4X, 27HIN I T I AL  RED  SHIPS  IN  REGION.  2X.10F7.2) 

573  FORMATtlH  .4X.16HRED  SHIPS  K I L L E D . 1 3 X , 10F 7 . 2 ) 

574  FORMATtlH  , 4 X > 29HR E SUL T A NT  RED  SHIPS  IN  REGI ON, 1  OF 7 . 2 ) 
BSSNDS=BSSNEW 

DO  80  KR  S  =  1 »  NKR  S 
RS(KRS.L)  *RSNEW(KRS  ) 

30  CONTINUE 
GO  TO  99 

96  WRITE(6,596) 

596  FORMAT ( 69H  NO  RED  SUBMARINES  OR  SURFACE  SHIPS  IN  REGION — NO  COMBAT 
1  TAKES  PLACE.) 

GO  TO  99 

97  WRITE (6»  597) 

5)7  FORMA!  ( 5 7 H  MO  BLUE  SUBMARINES  IN  TASK  FORCE — NO  COMBAT  TAKES  PLACE 
1  .  ) 

GO  TO  94 

WRITE (6. 9  9  8  )  NKR  S 

:r-)=i  FORMAT  (  6H  NKR  S  =  ,  I  2  ,  1 1  3H  CURRENTLY.  NKR  S  MUST  BE  AT  LEAST  3  (I.E., 
1  THERE  MUST  Bfc  AT  LEAST  ONE  KIND  OF  RED  SURFACE  SHIP).  PROGRAM  ST 
20PS .  ) 

STOP  6410 
99  WRITE (6.599) 

WRITE (6,2) 

599  F  OR  MA  T ( 2  5H  END  OF  SUBROUTINE  SUBSUB) 

2  FORMAT! 51H  - > 

C 

C* 

RETURN 

END 
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C*  DECK  TIMET 

SUBROUTINE  T I  MET ( ICYC LE ) 

C 

C  THEATER  CONTROL  ROUTINE  FOR  I/O 

C* 

C*  COMDECK  COM  IN  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE(2)>AAAFED(l),AACA,AAPAJO(2>,AAPDDA(2) 
COMMON  AAPDDE(2)#AAPDED(1),AAPKAD(2»2),AAPKDA(2>2),AAPKDE{2,1) 
COMMON  AAPKED(1,2),AASRAA{5),AASRED,AASRFA(5),AASRFE(5),AASRID 
COMMON  ABANM(2),ABAVL$<2)*ABCA$, ABESGS (2)# ABF  ASS (2) 

COMMON  ABFSM(2)>A8FVS(2),ABPDA(2),ABPKA(2)>ABPSA(2,2),A8PDS(2) 
COMMON  ABPKS (2*2) >  A8TSC (2)*ABVGS$ (2 )>ABRSAM(2 ) 

COMMON  AEWD,AESCAB(2),ASWF,ATABT(2,3),ATTWGT,AVAILE(5,2> 

COMMON  AINTCT,AVAILT(5,2,3)>AVALED<5,2),AWRCBB 

COMMON  BACCDW(6),BACPCK<6),BAREAQ<5),BARELQ(5>,BARLG(5),BMTMIN(5) 
COMMON  BARLTH(5)*BECDW<6),BEDW<10)>BSIBAR<5>,BSSNDS>BUCAP 
COMMON  CACDWO,CAPMLQ<5),CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6) , C P 3 S CK ( 1 0 ) , C P R PK ( 1 0 ) , C PRS C K ( 6 ) , C S C DWO 
COMMON  DDF  AC  ( 10  )  *DDPKC  <10  >  #  DDPKS ( 10) , DDRKAAt 10) *  DDRKBA ( 10) 

COMMON  DDRSA (10  )#DDSPA(10) #DLIA>D1T (  2  >  3  )  >  D  2  T (  2  >  3  ) 

COMMON  ESLR>ESRQ(5 ) #  E NACD  T  C  4  >  > ENACDS ( 10) 

COMMON  FAACA(5),FFACA(5),FFACE(5),FAC0B(5,2),FHSK<2) 

COMMON  FM3<  6)#  FPPL1 *  FPPL2*  FSTAOC  5) >FSTGAO( 5 ) 

COMMON  HRMAAW,HRMASW,HRMURG#HRTAAW,HRTASW#HRTURG 
COMMON  IAADA,IAAED>IABAF,IABAW,IABAEQ#IATKRT(5)>IATRIA,ICTL(5) 
COMMON  I D D AC  #  IDDASi IKRAS(5 ) > IPLADA# I P L  AED  > IRSUBA( 5  )  > I S  S  B  R  > ISSRB 
COMMON  IPPAF,  IPPAW 
COMMON  LGTHMP(6) 9 LTFMP (6) 

COMMON  MAXTP,MIMP 

COMMON  NABSAM,NKRB,NKRS,NKBDPl>NLOC>NPPSAM 

COMMON  PARK,PASS(2)>PBDRN(2)>PBDR$<2)*PBKRN(2),PBKRS(2) 

COMMON  PDIN, PKAT1,PKDF1,PKASW>  PKIIN, PKIN, PKPLDT(4) >PKPL1,  PKPL2 
COMMON  PK5ST  (4>,PRSM< 10,5# 6) ,PRWLNQ(5) 

COMMON  PLAEDA(2  ) *  PL  A E  DE  (2)  #PlAEED>PL8LBD(2j>5  )  >  P  L  C  A  (5) 

COMMON  PLFDtl(5>5f2),PLPAJ0(3)fPLPDDA(2),PlPDDE(2),PlPDED 
COMMON  PLPKAD{3>2)>PLPKDA(2#3)>PIPK0E(2)>PIPKED(2) 

COMMON  P A F C NF  *  PEFCNF*  PPS0RR(2>  5) 1 PPPSAS 12*2) 9 P  P  P  K  S  A  { 2  >  2  ) 

COMMON  PPRSAM(2),PPAVSS{2),PPPKAS(2),PPAVL${2>5),PPANM$(2) 

COMMON  PPPD$A(2)>  PPFSVSC2) >PPTSCS(2)>  PPCAL (5 ) 

COMMON  PPPDAS(2),PPEAS$(2),PPAEGS(2)>PPFASM<2) 

COMMON  RACCDW(10)/RACPCK(10)>RECDW( 10)>REDW(6) >  R  AR B  AB ( 3) 

COMMON  RS(10,5),RSIBAR(5) 

COMMON  SBFBCF,SBFBCS,SBFRFA(5),SBFRFC,SBFRSA(5),$BFR$C 
COMMON  $BP8DF,$BPBDS,SBPBKF,SBPBKS,SBPFDB,SBPEKB,SBPSDB,SBP$KB 
COMMON  SMALLR, SSDAAW, SSDAS W*  SSOURG, STARQ( 5 ),STSALV>  SUBS  OR,  SHEL 
COMMON  $SBACR(8),SSCFA,$SFRSV<G,5)>SSPBDR,SSPBKR,SSPRDB,SSPRKB 
COMMON  $SFBAK(2,8),SSPRKC 

COMMON  TAB10T(20,4>,TAB12<20),TAB13T(20,4),TCAP,THSCAQ(5) 

COMMON  THSCTQ(5),TPAS,TPS,T1,T2,T3,T4 
COMMON  UBAEW,UBAEWL, UBASW, U3 ASWL 
COMMON  VBT(3),VCAP, VI 

COMMON  WFMAAW, WFMASV,WFMPLT> WFMURG,  WF TAAW, WF TAS W, WFTPLT , WF TURG 
COMMON  VRLND0C5) ,WTFCBO,WVSIZ, WFPPAS(2>5 ),WFTFL(5 ) 

COMMON  XAEW#XAGWLO( 5  )  ,  X  AS W  ,  X  AS  wL Q  < 5) > X AT TC K, X E AA W>  XEA5WA, XE ASWN 
COMMON  XFGHTR,XPIAT,XURGS, XIA<5) ,XIE<  5) , XNRAB 
COMMON  ZLAMPF,ZMPCAP,ZMPDLI,ZMPATT(3),ZMPESC>ZMPSTG 
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C  *  COMDECK  COMIGG 

C  OMMON /C  OM I  GO /  IGO 
C* 

c* 

DIMENSION  I REC ( 21 ) , ZRE  C ( 2  1 )  , ZE PD ( 1 ) , I VAL ( 15 ) , ZVAL ( 15  ) 

EQUIVALENCE  ( IREC ( 1 ) , ZREC ( 1 ) ) ,  ( IDN, IREC C 1 )  ) , (  IFN, IREC ( 2  )  )  , 

1  (KBA,IREC(8)),(KREG,IREC(10)),(KSA,IREC(9)),(IT,IREC(7)), 

2  (  IREC (4),  I  ID)# ( ICODE, IREC (3) ), ( 1ST, IREC (4) ), ( I  TO, IREC (5  )  ), 

3  ( I  INC# IREC (6) ), CIVAL *IREC<7) ), ( I VAL(1 ), ZVAL (1 ) ) , ( NE PD ( 1 )  , C E PD , 

4  ZEPD ( 1 )  ) 

C* 

87  READ(15)IREC 

I F  <  E  OF ( 15)  ) 90 , 9 1 

91  I F ( I D  N • NE • 9999 )G0T092 
I  GO*5 1  FN 

89  IF  (  I  GO- 1 C  YCL  E )  81,87,81 

90  100*99999 
GOTO01 

C  PROCESS  THE  RECORD 

C  INTEGER  VALUES  ARE  TO  BE  INCREMENTED  OR  REPLACED  IF  NFN ■ 1  —  R  E  Al 
C  VALUES,  IF  NFN-2 

92  KK  3  0 

ASSIGN  103  TO  MGO 
IF (  IFN*  NE • 1 ) G0TQ94 
IF< ICODE.EQ.O) ASSIGN  104  TO  MGO 
GOTO  97 

94  ASSIGN  105  TO  MGO 

IF(ICODE.EQ.O)ASSIGN  106  TO  MGO 
97  DO  98  K*  1ST, I  TO, I  INC 
KK«KK+1 

GO  TO  MGO, (103,104,105,106) 

103  NEPD(K)*NEPD(K)+IVAL (KK) 

GOT  09  8 

104  NEPO(K)=IVAL(KK) 

G0T098 

105  ZEPD(K)*ZEPD(K)+ZVAL (KK  ) 

GOT  09  8 

106  ZEP0(K)*ZVAL(KK) 

99  CONTINUE 

G0T087 
81  CONTINUE 
RETURN 
END 
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C*  DECK  INP 

QVERLAY(0VER,1>0) 

PROGRAM  INP 
C 

C*  COMDECK  COM  IN  P 

COMMON  NEPD(l) 

COMMON  AAAEDA(2),AAAEDE{2),AAAEED(l)>AACA,AAPAJO(2),AAPDDA<2) 
COMMON  AAPDDE(2)>AAPDED(1)>AAPKAD(2>2)>AAPKDA(2»2)>AAPKDE(2>1) 
COMMON  AAPKED(1,2),AASRAA(5),AASRED*AASRFA(5),AASRFE(5)»AASRID 
COMMON  ABANM(2),ABAVLS (2), ABC  AS, AB  E S  GS  ( 2  )  ,  A  B  F  AS  S  <  2  ) 

COMMON  ABFSM(2),ABFVS(2),ABPDA(2),ABPKA(2),A8PSA<2,2),ABPDS<2) 
COMMON  ABPKS(2,2),ABTSC(2),ABVGSS(2)>ABRSAM(2) 

COMMON  AEWD,AESCAB(2),ASWF,ATABT(2,3)»ATTWGT,AVAILE(5,2) 

COMMON  AINTCT,AVAILT(5,2,3),AVALED(5,2),AWRCBB 

COMMON  BACCDW(6),8ACPCK(6)>8AREAQ(5)»BARELQ(5)»BARIQ(5)>BMTMIN(5) 
COMMON  BARLTHt  5) >BECDW(6)»  BEDW< 10) »BSIBAR ( 5 )>  BSSNOS, BUC AP 
COMMON  CACDW0,CAPMIQ(5),CAPMQ(5),CAPMR,CAPSTQ(5) 

COMMON  CPAGV,CPBPK(6),CPBSCK(10),CPRPK<10),CPRSCK<6)»CSCDW0 
COMMON  DDFAC(10)»D0PKC< 10) »D0PKS<10) ,DDRKAA( 10),DDRKBA{  10) 

COMMON  DDRSA(10),0DSPA<10),DLIA,D1T<2,3),D2T(2,3) 

COMMON  ESLR*ESRQ(5),ENACDT(A),ENAC0S(10) 

COMMON  FAACA(5),FFACA(5),FFACE(5),FAC0B(5,2),FHSK<2) 

COMMON  FM3(6),FPPll,FPPL2,FSTAQ(5),FSTGAQ(5) 

COMMON  HRMAAW,HRMASw,HRMURG,HRTAAW>HRTASW,HRTURG 
COMMON  IAADA>IAAED>IABAF>IABAW>IABAEO>IATKRT(5)»IATRIA*ICTLt5) 
COMMON  IDDAC,ID0AS,IKRAS(5),IPLADA,IPIAE0,IRSUBA<5),ISSBR,ISSRB 
COMMON  I P  P  A  F  ,  IPPAW 
COMMON  LGTHMP<6),LTFMP<6) 

COMMON  MAXTPjMIMP 

COMMON  NABSAM,NKR3,NKRS,NKBDPl,NL0C,NPPSAM 

COMMON  PARK,PASS<2),PBDRN(2>,PBDRS(2>,PBKRN(2),PBKRS(2) 

COMMON  PDIN,  PKAT1»PKDF1,  PKASVI#PKI  IN»PKIN»PKPLDT(4  )  >  PKPL1»PKPL2 
COMMON  PKSST(A),PRSM(10,5, 6), PR WINCH 5) 

COMMON  PLAEDA(2),PIAEDE<2),PIAEED,PLB18D(2,5),PLCA(5) 

COMMON  PLFDLL(5,5»2),PLPAJ0(3),PIPDDA(2),PLPDDE(2),PLPDED 
COMMON  PLPKAD(3,2),PIPKDA(2,3),PLPKDE(2),PIPKED<2) 

COMMON  PAFCNF>PFFCNF,PPSQRR(2>5)>PPPSAS(2,2)*PPPKSA(2>2) 

COMMON  PPRSAM(2),PPAVSS(2),PPPKAS(2),PPAVLS(2,5)»PPANMS<2) 

COMMON  PPPDSA(2),PPFSVS(2),PPTSCS(2>,PPCAL(5) 

COMMON  PPPDAS(2),PPFASS(2)»PPAEGS(2)>PPFASM(2) 

COMMON  RACCDV(10),RACPCK(10),RECDV(10),REDW(6),RARBA8<3) 

COMMON  RS(IO) 5),RSIBAR(5) 

COMMON  SBF8CF,SBFBCS,SBFRFA(!j),SBFRFC>SBFRSA<5),SBFRSC 
COMMON  S  B  P  BDF ,  SB  PBD  S »  SB  P8K  F , S3  P3  K  S  >  SB  PF  03 ,  SB  PFK  8  »  SBPSDB  >  SBPSKB 
COMMON  SMALLR,SSDAAI»,SSDASW,SSDURG,STARQ(5),STSALV,SUBS0R,SHEL 
COMMON  SSBACR(8),SSCFA,3SFRSV(8,5),SSPBDR,S3P3KR,SSPRDB>SSPRKB 
COMMON  SSFBAK(2,8),SSPRKC 

COMMON  TAB10T(20,4),TAB12<20),TA813T(20,A),TCAP,THSCAQ(5) 

COMMON  THSCTQt  5)»TPAS»TPS,  T1 »  T2>  T 3,  T 4 
COMMON  UBAEW»UBAEWL»UBASW»U3ASWL 
COMMON  VBT ( 3  ) , VCAP, VI 

COMMON  WFMAAW, WFMASW,WFMPIT, WF MURG, WF T A AW, WF T AS W , WF TPL T, WF TURG 
COMMON  WPINDQ<5)»WTFCB0,WV$IZ,WFPPAS<2, 5),WFTFL 15) 

COMMON  XAEW»XAEW10(5) »XASW,  XASWLQ < 5 ) » XATTCK, XEAAW, XE ASWA, XE A$WN 
COMMON  XFGHTR*  XPLAT  »  XUR  G  S  »  XIA(  5  )  ,  XIE  (  5  ) ,  XNRAB 
COMMON  ZLAMPF>ZMPCAP»ZMPDLIiZMPATT (3) »ZMPESC,ZMPSTG 
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C  * 

c  * 
c 


COMDECK  COMIGO 

COMMON/COM IGO/  IGO 


DIMENSION  IVARQt512#8)#lISTV(512),MPOW(8> 

DIMENSIONIVR9 ( 3  5)# IVRBST (3  5# 50) #  LISTW(50 ) 

DIMENSION  NVPFMT(4>#  I  N  F  0  (  0  ) 

DIMENSION  IFMT(2),IFl(2#4),IRECt21)#ZREC<21) 

DIMENSION  INUM9 (  4  )  #  I  DR  (  2  ) 

OIMENSIDN  POIV  (1  JjpSDIV  C  1)>  ITD(X  IBALD(l) 

EQUIVALENCE  t  IREC C  1 ) # ZREC ( 1 ) ) , ( IREC ( 4 ) , I  ST ) # ( IREC ( 5 ) , I  MAX )  # 
1  (  I  R  E  C  t  6  )  # INC  )  #  ( NE  PD ( 1 )  #  C  E  P  D  ) 

DATAtNVPFMT(J)#J*l,3)/6#6#7/  #MBLK#MRED#MUNIT#MB/6HZZZZZZ# 
S  4HUNIT# lHB/#NVPFMT<4)/6/ 

DATA  {IF1(K)#K«1#8)/10H<1QX,10I11,1H),  1  OH  ( 10X  ,  10G12 # 4H  . 

I  IH  #1H  ,  10Ht9X#10All)#lH  / 

DATA  MO/ 1H  / 

DATA  (MPGW< J)#J*1#8)#N, MPD  / 128# 64 # 32 # 16, 8 # 4, 2, 1, X # 0/ 

DATA  MPNAME/1H  / , JD I M/ 5 X2 / , ( L IS TV C I ) , I « 1 , 511 ) / 51 1*0/ 

DATA  ( I  NUMB ( J)#J*l#4)#I0R(l)#IQRt2)/4*12#6HINCREM#6HRPLACE/ 
DATA  N/  264/#  ( I VARQ ( I # 1 ) # I  *  265#  512  )/  248 *6H Z Z Z Z Z Z / 

D  A  T  A  (  I V  A  R  Q  ( 

D  A  T  A ( I V  AR  Q ( 

DATA(IVARQ{ 

DATA!  I V  ARQ ( 

D  A  T  A ( I V  A  RQ ( 

DATA ( IVARQ ( 

DATA ( I  V  AR  Q ( 

D A  T  A ( IV  ARQ ( 

DAT A(  IVARQ ( 

QATA(IVARQ( 

DATA ( IVARQt 
D A  T  A ( IVARQ ( 

D A  T  A ( I  V  AR  Q ( 

DATA ( I V  A  R  Q ( 

DATA ( I V  AR  Q { 

DATA (  I V  A R Q ( 

OATA (  IV ARQ ( 

0 A  r A (  IVARQ  ( 

DATA (  I  V  A  R  Q ( 

D  A  T  A {  IVARQ ( 

D A  T  A (  IVARQ ( 

OATA ( I  V  A  R  Q ( 

OATA ( IVARQ  ( 

OATA(IVARQ( 

DAT A<  IVARQ ( 

0  A  T  A  (  I V  A  R  Q  ( 

DATA  (  I V  A  R  Q ( 

0  A  T  A (  I V  ARQ ( 

DAT A( IVARQt 
DATA ( IVARQt 
DATA  t IVARQ ( 

DATAt  IVARQ  ( 

DATA (  IVARQt 
DATAt  IVARQt 
DATA  t  IVARQt 
DATAt  IVARQt 


1  HR  t 
4)  # 


1#K)#K*1#8 ) /6HAAAEDA# 

2# 

0# 

0, 

1# 

0#  2 0, 

31/ 

2#K ) ,K*1#8 ) /6HAAAEDE  # 

2# 

0# 

0# 

3# 

0 #  2 0# 

51/ 

3# K ) # K  *  1 #  8 )/6HAAAEEQ# 

1# 

0# 

0# 

5, 

0,20# 

61/ 

4#K)#Kal#8) /6HAACA  # 

1# 

0# 

0# 

6  # 

0  #  20  , 

71/ 

5#K)#Kal#8)/6HAAPAJ0# 

2# 

0# 

0# 

7# 

0#  20# 

91/ 

6#K)#Kal#8 ) /6HAAPDDA# 

2# 

0# 

0# 

9# 

0 #  2 0# 

111/ 

7#K)#K«1#8 )/6HAAPDDE# 

2# 

0# 

0, 

11# 

0 #  20# 

131/ 

8#K)#Kal#8)/6HAAPDED# 

1# 

0# 

0# 

13# 

0#  20# 

141/ 

9#K)#K=1#  8 ) /6HAAPKAD# 

2# 

2# 

0# 

14# 

0#  20# 

182/ 

10#K ) #  K  a  1  #  8 ) /6HAAPKDA# 

2# 

2# 

0# 

18# 

0 #  20 # 

222/ 

11,K)#K*1#8 ) /6HAAPKDE  # 

2# 

1# 

0, 

22# 

0  #  20# 

242/ 

12#K  )  #  K  a  1  #  8 ) /6HAAPKED# 

1# 

2# 

0# 

24# 

0 #  20 # 

262/ 

13#K)#K=1#8 ) /6HAASRAA# 

5# 

0# 

0# 

26# 

0 #  20# 

311/ 

14#K)#K*1#8 )/6HAASRED# 

1# 

0# 

0# 

31# 

0 #  20# 

321/ 

15#K)  #  K  a  1  #  8 }/6HAASRFA# 

5# 

0# 

0# 

32# 

0 #  2 0# 

371/ 

1 6  #  K ) #  K - 1 #  8 ) /6HAASRFE# 

5# 

0# 

0# 

37# 

0#  20# 

421/ 

17#K)#K=1#8)/6HAA5RID# 

1# 

0# 

0# 

42# 

0 #  2 0# 

431/ 

18#K)#Kal#8) /6HABANM  # 

2# 

Q# 

0# 

43# 

0  #  2 1  # 

451/ 

19#K)#K*1#8 ) / 6H A  B  A VL  S  # 

2# 

0# 

0# 

45# 

0,20# 

471/ 

20#K) #K=1#8)/6HABCA$  # 

1# 

0# 

0# 

47# 

0 #  20# 

401/ 

2 1 #  K )  »  K= 1#  8  ) /6HABESGS# 

2# 

0# 

0# 

48# 

0#  20# 

501/ 

22#K) #  Kal#  8) /6HABFASS# 

2# 

0# 

0# 

50# 

0 #  2 0# 

521/ 

23#K)#K*1#8  J/6HABFSM  # 

2, 

0# 

0# 

52# 

0  #  20, 

541/ 

24#K)#K=1#8) /6HABFVS  # 

2# 

0# 

0# 

54, 

0  #  20 # 

561/ 

25#K)#K=1#8) /6HABPDA  # 

2# 

0# 

0# 

56# 

0 #  20# 

581/ 

26#K)#Kal#B) /6HABPDS  # 

2# 

0# 

0# 

64# 

0 #  20 # 

661/ 

27#K) #K=1#8 ) /6HABPKA  # 

2# 

0# 

0# 

58# 

0,20# 

601/ 

28#K) #Kal#8)/6HABPKS  # 

2# 

2# 

0# 

66# 

0,20# 

702/ 

29»K)#K*1#8)/6HABPSA  # 

2# 

2# 

0# 

60# 

0 #  2 0# 

642/ 

3  0  #  K ) #  K  a  1  #  8 ) /6HABRS AM# 

2# 

0# 

0, 

74, 

0,21, 

761/ 

31#K)#K*1#8  )  / 6HA8TSC  # 

2# 

0# 

0# 

70, 

0,20, 

721/ 

3  2  #  K  )  #Kal#8 ) /6HABVGSS# 

2# 

0# 

0# 

72# 

0  #  2  0 , 

741/ 

33#K  )  #  K  =  l#  8 ) /6HAESC AB# 

2# 

0# 

0# 

77# 

0#  21# 

791/ 

3  4  #  K  )  #  K  *  1 #  8 ) /6HAEW0  # 

1# 

0# 

0# 

76# 

0,20# 

lllf 

35»K)#K-1#8)/6HAINTCT  # 

1# 

0, 

0# 

97# 

0#  21# 

981/ 

36#K)#K=1#6) /6HASWF  # 

1# 

0  # 

0, 

79# 

0 #  20# 

801/ 

E-102 


1 


PROGRAM 


INP 


D A T A {  I VARQ ( 

37 

K  J>K*1>8  )/6HATABT  , 

2* 

3, 

0, 

80, 

0,21, 

862/ 

15SEP81 

155 

D  AT  A ( I V  A  R  Q ( 

36 

K),K=1,8)/6HATTWGT, 

I, 

0, 

0, 

86, 

0,  20, 

871/ 

15SEP81 

156 

DATA (I VARO  ( 

39 

K),K«1,8)/6HAVAILE, 

5  9 

2, 

0, 

87, 

0,20, 

972/ 

15SEP81' 

157 

DATA ( IV ARQ ( 

40 

K),K*1,8)/6HAVAILT,. 

5, 

2, 

3, 

98, 

0,  20, 

1283/ 

15SEP81 

158 

D  AT  A (  I V  A R 0 ( 

41 

K),K»1,8) /6H AVAL  ED  , 

5f 

2  9 

0, 

128, 

0,20, 

1382/ 

15SEP81 

159 

DAT A(  IV  ARQ  ( 

42 

K  )  ,  K  =  1 , 8 ) /6HAWRCB3, 

If 

0, 

0, 

138, 

0,  20, 

1391/ 

15SEP81 

160 

QATA{ IVARQ{ 

43 

K),K*1,8 )/6HBACCDW, 

6  9 

0, 

0, 

139, 

0,20, 

1451/ 

15SEP81 

161 

DATA ( IVARQ ( 

44 

K),K*1,8)/6HBACPCK, 

6  9 

Of 

0, 

145, 

0,20, 

1511/ 

15SEP81 

162 

D A  T  A (  IVARQ ( 

45 

K),K*1,8)/6HBAREA0, 

59 

Of 

0, 

151, 

0,20, 

1561/ 

15SEP81 

163 

DAI A(  IVARQ ( 

46 

K ) , K* 1,  8) /6HBARELQ, 

5  9 

0, 

0, 

156, 

0,20, 

1611/ 

15SEP81 

164 

DATA  (  IVARQ ( 

47 

K),K«1,8)/6HBARLQ  , 

5  9 

0, 

0, 

161, 

0,20, 

1661/ 

15SEP81 

165 

DATA ( IVARQ! 

40 

K),K*1,B)/6HBARLTH, 

5  9 

0, 

0, 

171, 

0,20, 

1761/ 

15SEP81 

166 

DATA! IVARQ! 

49 

K),K=1,8)/6HBECDW  , 

6  9 

Of 

0, 

176, 

0,20, 

1821/ 

15SEP81 

167 

DATA!  IVARQ! 

50 

K  )  ,  K  3 1, 8 )/6HBEDW  , 

10, 

Of 

0, 

182, 

0,20, 

1921/ 

15SEP81 

168 

DATA!  IVARQ! 

51 

K),K«1,8)/6HBMTMIN, 

5, 

Of 

0, 

166, 

0,20, 

1711/ 

15SEP91 

169 

DATA (IVARQ! 

5  Z 

K  )  ,  K  *  1 , 8  )/6HBSI3AR, 

5, 

0, 

0, 

192, 

0,21, 

1971/ 

15SEP81 

170 

DATA! IVARQ ( 

53 

K) , K= 1#  0 ) /6HBSSNDS  , 

If 

0, 

0, 

197, 

0,21, 

1901/ 

15SEP81 

171 

DATA!  IVARQ! 

54 

K ) , K= 1 , 8  ) /6HBUCAP  , 

If 

0, 

0, 

198, 

0,20, 

1991/ 

15SEP81 

172 

DATA!  IVARQ! 

55 

K ) ,  K  * 1 ,  8 ) /6HCACDW0, 

1 9 

0, 

0, 

199, 

0,20, 

2001/ 

15SEP81 

173 

DATA ! IVARQ! 

56 

K),K«1,8 ) /6HC  A  PMLQ  , 

5  9 

0, 

0, 

200, 

0,20, 

2051/ 

15SEP81 

174 

DATA!  IVARQ! 

57 

K),K*1,8)/6HCAPMQ  , 

5  9 

0, 

0, 

205, 

0,20, 

2101/ 

15SEP81 

175 

DATA!  IVARQ! 

56 

K),K31,8) /6HCAPMR  , 

1 9 

0, 

0, 

210, 

0,20, 

2111/ 

15SEP81 

176 

DATA! IVARQ! 

59 

K 8 ) /6HCAPSTQ, 

59 

0, 

0, 

211, 

0,  20, 

2161/ 

15SEP81 

177 

DATA ( IVARQ ( 

60 

K),K*1,8 J/6HCPAGV  , 

1  9 

0, 

0, 

216, 

0,20, 

2171/ 

15SEP81 

178 

DATA (  IVARC ( 

61 

K),K*1,8)/6HCPBPK  , 

6  , 

0, 

0, 

217, 

0, 20, 

2231/ 

15SEP81 

179 

OATA!  IVARQ { 

62 

K),K*1,0)  /6HCP  BSCK  , 

10, 

0, 

Of 

223, 

0,20, 

2331/ 

15SEP81 

180 

DATA!  IVARQ ( 

63 

K),K«1,8)/6HCPRPK  , 

10, 

0, 

Of 

233, 

0,20, 

2431/ 

15SEP81 

181 

DATA  !  IVARQ ( 

64 

K),K*1,8)/6HCPRSCK, 

6, 

Of 

Of 

243, 

0,20, 

2491/ 

15SEP81 

182 

DATA!  IVARQ ( 

65 

K) , K* 1 , 8  ) /6HCSCDW0, 

1, 

Of 

Of 

249, 

0,  20, 

2501/ 

15SEP81 

183 

DATA!  IVARQ! 

66 

K) ,  K  s 1, 6 ) /6HDDFAC  , 

10, 

Of 

0, 

250, 

0,20, 

2601/ 

15SEP81 

184 

DATA (  IVARQ  t 

67 

K  OK«li8  )/6HDDPKC  , 

10, 

Of 

0, 

260, 

0,  20, 

2701/ 

15SEP81 

185 

DATAtIVARQ! 

68 

K)  ,  K  ■  1 , 8  )  /  6HDDPKS  , 

10, 

Of 

0, 

270, 

0,20, 

2801/ 

15SEPB1 

106 

DATA! IVARQ  t 

69 

K)  , K*l,  8  )  /6HDDRKAA, 

10, 

Of 

0, 

280, 

0,20, 

2901/ 

15SEP01 

187 

DATA!  IVARQ! 

70 

K  )  ,  K  3  1 , 8 )/6HDDRKBA, 

10, 

Of 

0, 

290, 

0,20, 

3001/ 

15SEP81 

188 

DATA  !  IVARQ ( 

71 

K),K*1,8 ) /6HDDRSA  , 

10, 

Of 

0, 

300, 

0,  20, 

3101/ 

15SEP81 

189 

DATA ( IVARQ! 

72 

K  )  ,  K  *  1 , 8 )/6HDDSPA  , 

10, 

Of 

0, 

310, 

0,20, 

3201/ 

15SEP81 

190 

DATA!  IVARQ! 

73 

K),K31,8)/6HDLIA  , 

If 

Of 

0, 

320, 

0,20, 

3211/ 

15SEP81 

191 

DATA!  IVARQ! 

74 

K ) , K*l, 0  ) /6HD1T  , 

2, 

3, 

0, 

321, 

0,  20, 

3272/ 

15SEP81 

192 

DATA !  IVARQ ( 

75 

K ) ,K*1, 0  ) /6HD2T  , 

2, 

3, 

0, 

327, 

0,20, 

3332/ 

15SEP81 

193 

DATA ( IVARQ! 

76 

K),K»1,0)/6HENACDS, 

10, 

0* 

0, 

343, 

0,20, 

3531/ 

15SEP81 

194 

DATA!  IVARQ! 

77 

K),K*1#8) /6HENACDT  , 

4  , 

0, 

0, 

339, 

0,20, 

343  1/ 

15SEP81 

195 

OATA!  IVARQ! 

78 

K )  ,  K  3 1 , 8 ) / 6HE  S LR  , 

1, 

0, 

0, 

33  3, 

0,20, 

3341/ 

155EP81 

196 

DATA!  IVARQ! 

79 

K)>K*1^8) /6HE5RQ  9 

5, 

0, 

0, 

334, 

0,20, 

3391/ 

15SEP01 

197 

DATA ( IVARQ! 

80 

K) ,K-1,0  )/6HFAACA  9 

5, 

Of 

0, 

35  3, 

0,20, 

3561/ 

155EP81 

199 

DATA! IVARQ! 

81 

K  )  ,  K  3  1 , 8  ) /6HFAC0B  , 

5, 

2, 

0, 

360  , 

0,20, 

3782/ 

15SEP81 

199 

DATA!  IVARQ! 

82 

K ) ,K31, 8 ) /6HFFACA  9 

5, 

0, 

0, 

358, 

0,20, 

3631/ 

15SEP81 

200 

DATA! IVARQ! 

03 

K  )  ,  K  *  1 »  8  )  /6HFFAC  E  9 

5, 

0, 

0, 

363, 

0,20, 

3681/ 

15SEP81 

201 

DATA!  IVARQ! 

84 

K),K*1,6 ) / oHFHSK  , 

2, 

0, 

0, 

378, 

0,20, 

3801/ 

15SEP81 

202 

DAT  A ! I VARQ ! 

05 

K),K31,0)/6HFM3  , 

6  , 

0, 

0, 

380, 

0,20, 

3861/ 

155EP01 

203 

DATA  t IVARQ ( 

86 

K )  ,  K  3  1 , 8 )/6HFPPLl  , 

If 

0, 

0, 

386, 

0,20, 

3871/ 

15SEP81 

204 

DATAtIVARQ! 

87 

K),K«1,8 )/6HFPPL2  , 

If 

Of 

0, 

387, 

0,20, 

3881/ 

15SEP81 

205 

DATA! IVARQ! 

88 

K ) , K3 1 , 6  ) /6HFSTAQ  , 

5, 

Of 

0, 

368, 

0,20, 

3931/ 

15SEP81 

206 

DATA! IVARQ! 

89 

K ) ,  K  3  1 , 8 ) /6HFSTGAQ, 

5, 

Of 

0, 

393, 

0,20, 

3981/ 

15SEP81 

207 

DATAtIVARQ! 

90 

K) ,K31,8 ) /6HHRMAAW, 

1, 

Of 

0, 

398, 

0,20, 

3991/ 

15SEP81 

208 

DATAtIVARQ! 

91 

K),K«1,8)/6HHRMASW, 

If 

Of 

Of 

399, 

0,20, 

4001/ 

15SEP81 

209 

DATA!  IVAPG! 

92 

K )>K*1, 8 ) / 6HHR MUR G  9 

If 

Of 

Of 

400, 

0,20, 

4011/ 

15SEP81 

210 

DATA!  IVARQ! 

93 

K),K31,8  )  /6HHR  T  A  A  VI 9 

If 

Of 

Of 

401, 

0,20, 

4021/ 

155EP81 

211 

E-103 


PROGRAM  1NP 


DATAt  IVARQt  94 

K 

),K»1,8)/6HHRTA$W> 

1, 

0, 

Of 

40 2  f 

0,20, 

4031/ 

15SEP81 

212 

D AT  A (  IV  ARQ (  95 

K 

) ,K=1,8) /6HHRTURG, 

l9 

Of 

Of 

403. 

0,20, 

4041/ 

15SEP81 

213 

DATA ( IVARQ(  96 

K 

)  ,  K  *  1 ,  8  )  / 6H I  A  A  D  A  , 

I9 

Of 

Of 

404f 

0, 10, 

4051/ 

15SEP81 

214 

DATA(IVARQ(  97 

K 

) ,  K« 1 , 8 ) /6H1AAED  , 

I9 

Of 

Of 

405  , 

Of  10, 

4061/ 

15SEP81 

215 

DATA( IVARO{  98 

K 

),K=1,8)/6HIABAEQ, 

I9 

Of 

Of 

408  f 

Of  10, 

4091/ 

.15SEP81 

216 

DATA{  IVARO(  99 

K 

),K*1,6)  /6HIABAF  , 

I9 

Of 

Of 

4  0  6, 

Of  10, 

4071/ 

15SEP81 

217 

DATA ( IVARQt 100 

K 

) ,  K  *  1 , 8  J/6HIABAW  , 

I9 

0, 

Of 

407 , 

Of  10, 

4081/ 

15SEP81 

218 

DATA ( IVARQ ( 101 

K 

)  ,  K  »  1 , 8  )/6HlATKRT, 

5  9 

0, 

Of 

409, 

0,10, 

4141/ 

15SEP81 

219 

DATAt IVARQ (102 

K 

)  ,K=1,8)/6HIATRIA, 

I9 

Of 

Of 

414, 

Of  10, 

4151/ 

15SEP81 

220 

DATAt IVARQt 103 

K 

),K=1,0)/6HICTL  , 

5  9 

Of 

Of 

415, 

0,  10, 

4201/ 

15SEP81 

221 

DATAt  IVARQt 104 

K 

)  , K  *  1, 8  )  / 6H  IDDAC  , 

I9 

Of 

Of 

420, 

Of  10, 

4211/ 

15SEP81 

222 

DATA(IVARQ(105 

K 

) ,K*1, 8  J/6HID0AS  , 

1 9 

Of 

0, 

421, 

0,10, 

4221/ 

15SEP01 

223 

DATAt IVARQt 106 

K 

)  ,  K  =  1 , 8  ) /6H  IKR AS  , 

5  9 

Of 

Of 

422, 

Of  10, 

4271/ 

15SEP81 

224 

DATAt IVARQ ( 107 

K 

)  >  K  =  1 >  8 ) /6HIPEADA, 

I9 

Of 

Of 

42  7, 

Of  10, 

4281/ 

15SEP81 

225 

DATAt I V  A  R  0 ( 108 

K 

)  ,  K  3  1 , 8  ) /6HIPLAED, 

1 9 

Of 

Of 

428, 

Of  10, 

4291/ 

15SEP81 

226 

DATA ( IVARQt 109 

K 

) ,K»1>8  ) /6HIPPAF  , 

1 9 

0, 

Of 

436, 

0,  10, 

4371/ 

15SEP81 

227 

DATAt  IVARQtllO 

K 

) ,KS 1 , 8  )  /6HIPPAW  , 

1 9 

Of 

Of 

4  3  7, 

Of  10, 

4381/ 

15SEP81 

228 

DATAtIVARQtlll 

K 

) , K *  1 >  8 )  /6HIRSU9A, 

5  9 

Of 

Of 

4  29  , 

0,  10, 

4341/ 

15SEP81 

229 

DATAt IVAROt 112 

K 

),K*1,8)/6HISSBR  , 

I9 

Of 

Of 

434, 

Of  10, 

4351/ 

15SEP81 

230 

DATA(IVARQ(113 

K 

),K«1,0)/6HISSRB  , 

I9 

0, 

Of 

435, 

0,10, 

4361/ 

15SEP81 

231 

DATAt  IVARQ (114 

K 

) ,  K  =  l,  8  )  /6HLGTHMP, 

6  9 

Of 

Of 

438, 

0,10, 

4441/ 

15SEP81 

232 

DATAt  IVARQt 115 

K 

)  , K*1 ,  8  )  /  6HLTFMP  , 

6  9 

Of 

Of 

444, 

0,  10, 

4501/ 

15SEP81 

233 

DATAt  IVARQ ( 116 

K 

),K*1,8)/6HMAXTP  , 

1 9 

Of 

Of 

450, 

0,10, 

4511/ 

15SEP81 

234 

DATAt IVARQt 117 

K 

),K«1,8)/6HMIMP  , 

I9 

Of 

0, 

451, 

0,10, 

4521/ 

15SEP81 

235 

DATAt  IVARQt 118 

K 

),K*1,8)/6HNABSAM, 

I9 

Of 

Of 

452  , 

0, 10, 

4  531/ 

15SEP81 

236 

DATAt IVARQt 119 

K 

) , K  3 1 , 8 ) / 6HNE  PD  , 

I9 

Of 

Of 

0, 

0, 10, 

11/ 

15SEP81 

237 

DATAt  IVARQ ( 120 

K 

) ,K-1, 8 ) /6HNKBDPL , 

I9 

Of 

Of 

455, 

Of  10, 

4561/ 

15SEP81 

238 

DATAt IVAROt 121 

K 

) ,K*l,8  )/6HNKRB  , 

If 

Of 

0, 

453, 

0,10, 

4541/ 

15SEP81 

239 

DATAt IVAROt 122 

K 

)  ,K* 1 , 8 ) /6HNKRS  , 

If 

Of 

Of 

454, 

Of  10, 

455  1/ 

15SEPB1 

240 

DATAt IVARQt 123 

K 

) , K  *  1 , 8 ) / 6HNL  QC  , 

I9 

Of 

Of 

456, 

0,  10, 

4571/ 

15SEP81 

241 

DATAt IVARG(124 

K 

),K*1,8)/6HNPP$AM, 

If 

Of 

Of 

457, 

Of  10, 

4581/ 

15SEP81 

242 

DATAt IVARQt 125 

K 

),Kal,0)/6HPAFCNF, 

I9 

Of 

Of 

884, 

0,  20, 

8851/ 

15SEP81 

243 

DATAt IVARQtl26 

K 

) , K* 1 , 0  )  / 6HPARK  , 

Ip 

Of 

Of 

458, 

0,20, 

4591/ 

15SEP81 

244 

DATAt IVARQt  127 

K 

) ,K*1, 0  ) /6HPASS  9 

If 

Of 

Of 

459, 

0,20, 

4611/ 

15SEP81 

245 

DATA (IVARQt 128 

K 

)  ,  K  *  1 , 8  )  /6HP8DRN  9 

If 

0, 

Of 

461, 

0,20, 

4631/ 

15SEP81 

246 

DATAt IVARQt 129 

K 

),K»1,8)/6HPBDRS  , 

Zf 

Of 

Of 

463, 

0,20, 

4651/ 

15SEP81 

247 

DATAt IVARQt 130 

K 

) , K* 1, 0 )  /6HPBKRN  , 

2  9 

Of 

Of 

465, 

0,20, 

4671/ 

15SEP81 

248 

DATAt IVARQ(131 

K 

)  ,  K  » 1, 0  )  / 6HP8KRS  , 

Z9 

Of 

Of 

467, 

0,20, 

4691/ 

15SEP81 

249 

DATA ( IVARQt 132 

K 

),K*1,8 J/6HPDIN  9 

If 

Of 

0, 

469, 

0,20, 

4701/ 

15SEP81 

250 

DATAt  IVARQ (133 

K 

),K=1,8>/6HPFFCNF, 

1  9 

Of 

Of 

885, 

0,20, 

8061/ 

15SEP81 

251 

DATAt  IVARQ ( 134 

K 

),K=1,8>/6HPKASW  , 

1# 

Of 

Of 

472, 

0,20, 

4731/ 

15SEP81 

252 

DATAt IVARQt 135 

K 

) ,K*1, 8  )  /6HPKAT1  , 

1# 

Of 

Of 

470, 

0,20, 

4711/ 

15SEP81 

253 

DATA ( IVARQ ( 136 

K 

) ,K»1,8 > /6HPKDF1  9 

If 

Of 

Of 

471, 

0,20, 

4721/ 

15SEP81 

254 

DATAt IVARQ ( 137 

K 

) , K= 1 , 8  )  /6HPK  I  IN  , 

If 

Of 

Of 

473, 

0,20, 

4741/ 

15SEP81 

255 

DATAt  IVARQt 138 

K 

) , K* 1, 0 ) /6HPK IN  9 

If 

Of 

Of 

474  , 

0,20, 

4751/ 

15SEP81 

256 

DATAt IVARQt 139 

K 

),K«1,8)/6HPKPLDT, 

4  9 

Of 

Of 

475, 

0,20, 

4791/ 

15SEP81 

257 

DATAt IVARQ ( 140 

K 

)  ,  K  ■  1, 8  )  /6HPKPL1  , 

1, 

0* 

Of 

479, 

0,20, 

4801/ 

15SEP81 

259 

DATAt IVARQt 141 

K 

),K*1,8)/6HPKPL2  9 

If 

Of 

Of 

480, 

0,  20, 

4011/ 

15SEP81 

259 

DATAt IVARQt 142 

K 

),K=1,8)/6HPKS5T  9 

4  f 

Of 

Of 

481, 

0,20, 

4851/ 

15SEP01 

260 

DATA ( IVARQt 143 

K 

),K*l,e  )  /6HPL  AE  DA , 

Zf 

Of 

Of 

790, 

0,20, 

7921/ 

15SEP81 

261 

DATA(IVARQtl44 

K 

) ,K*1,8  )  /6HPL  AE  DE  9 

Zf 

0, 

Of 

792, 

0,20, 

7941/ 

15SEP81 

262 

DATAt  IVARQU45 

K 

) iK=l;8) /6HPLAEE D, 

1  9 

Of 

Of 

794, 

0,20, 

795  1/ 

15SEP81 

263 

DATAt  IVARQt 146 

K 

) , K=l, 6  >  /6HPLBLBD, 

Zf 

5  f 

Of 

795, 

0,21, 

8052/ 

15SEP81 

264 

OATA (  IVARQt 147 

K 

),K*1,8)/6HPLCA  , 

5  9 

Of 

Of 

805, 

0,20, 

8101/ 

15SEP81 

265 

DATAt IVARQ ( 148 

K 

) ,K»1,8  )  /6HPL  FDL  L  , 

5  9 

5  f 

2, 

810, 

0,20, 

9603/ 

15SEP81 

266 

DATAt  IVARQt 149 

K 

),K=1,8)/6HPLPAJ0, 

3  9 

Of 

Of 

860, 

0,20, 

8631/ 

15SEP81 

267 

DATAt  IVARQt 150 

K 

)f K=l, 8)  /6HPLPDDA, 

Zf 

Of 

Of 

063, 

0,20, 

8651/ 

15SEP81 

268 

E-104 


PROGRAM  INP 


DATA( IVARQ(151,K  >#K=1#8)  /6HPLPDDE#  2# 
DATA l IVARG( 15 2# K) #K*1,  8)/6HPLPDED#  1# 
DATA(IVARG(153#K),K-1,8)/6HPLPKAD#  3, 
DATA(IVARQ(154,K),K-1,6)/6HPLPKDA,  2, 
DATA(  IVARQ( 1  5  5  ,  K  )  , K  =  1  >  8  )  /6HPLPKDE,  2, 
DATA(  IVARQ(156,K),K=1#8)  /6HPL  PKE  D,  2# 
DAT  A (  IVARQ(  15  7,K ) ,K«1, 8 ) /6HPPAEGS ,  2, 

DATA ( IVARG ( 15  8, K  )  ,  K  ■  1  #  8  )  /  6HPPANMS  ,  2, 

DATA( IVARQ(159,K) ,K  =  1,8>  /6HPPAVLS#  Z, 
DATA(IVARQ(160,K),K  =  1#8)/6HPPAV:>S#  2, 

DATA (IVARQ( 161, K),K*1,6)/6HPPCAL  ,  5, 

DATA<IVAR0U62fK)*K-l#8)/6HPPFASM»  2, 

DATA(  IVARQ(163»K) ,  K  -  1 , 8  )  /6HPPFASS#  2, 
D AT  A (  IVARQ( 16  4,  K  )  , K  =  1  #  8 ) /6HPPFSVS,  2, 
DATA(IVARQ(165,K),K«1,8)/6HPPPDAS,  2, 
DATA(IVARQ(166,K),K*1,8)/6HPPPDSA,  2, 
DATA(  IVARG  (167,  K),K=*  1,8)  /  6HPPPKAS,  2 9 
QATA(IVARQ(168,K),K=1,8)/6HPPPKSA,  2, 
DATA(IVARC(169,K),K»1,8)/6HPPPSAS,  Z, 
DATA (IVARO < 170# K)#K *1,8  J/6HPPRS AM,  Z> 
DATA(  IVARO( 171,K  >,K*1,8  >/6HPPSQRR,  2, 
DATA(IVARO(172#K),K*1,0)/6HPPTSCS,  2, 
DATA ( IVARO ( 1  7  3  #  K )  ,  K  *  1 , 0  )  /  6HPRSM  ,  10, 
DATA ( IVAR0( 174,K) ,K* 1,8  )  /6HPR WING  9  5, 

DATA(IVARG(175,K),K*1,8)/6HRACCDW,  10# 
DATA(  IVARQC 1 76 , K  ) ,  K  =  1 ,  8  )  /6HRACPCK,  10# 
DATA(IVARG{177,K),K*1,8)/6HRARBA8,  3# 
DATA (  IVARO( 178 , K )  ,  K  3  1, 8  )  /  6HRECDW  ,  10# 

DAT  A ( IV ARQ (179,K),K31,8)/6HREDW  #  6# 

DATA( I  V  A  R  C ( 180»K)#K=1#  8 ) /6HRSI8AR,  5# 
DATA {  IVARO( 181#K) ,  K  3  1 , 8  )  /  6HRS  #  10# 
DATA (  IVARG( 182#K) #K*1#  8)  /6HS8F8CF,  1# 
DATA(  IVARQ{183#K)  , K*  1, 8  )  /  6HS8F3CS#  1# 
DATA(IVARC(184,K)#K=1#8)/6HS8FRFA,  5# 
0ATA(IVARCU85#K)#K  =  1#8)/6HSBFRFC#  1# 
DATA (IVARQ{ 186,K),K*1,6  )  /  6HS9FRSA#  5# 
DATA(  IVARQ(187,K),K31,8)  /  6HSBFRSC#  1# 
DATA { IVARO (188#K) #K*1#  8)  /  6HSBPBDF#  1# 
D  A  T  A  (  IVARQ(  18  9  #  K  )  ,  K  3  1 , 6  )/6HS3PBD5#  1# 

DATA(IVARQ{190#K)#K*1#8)/6HS3P3KF#  1# 

DATA( IVARG ( 191#K) , K*1 , 8 )/6HS8P8KS#  1# 

DAT  A(  IVARG( 192,K),K=1,8  )  /  6HSBPFD3#  1# 
DATA { IVARQ(  193>K) ,  K  3  1 ,  8 ) /6HS8PFKB#  1# 
DATA(IVARQ(194,K),K*1,8)/6HS3PS08,  1# 

DATA (  IVARO ( 19 5# K) ,K  =  1, 8) /6HSBPSKB#  1# 
DATA(IVAR0(19fc,K)#K=l#8)/6HSHEl  #  1# 

DATA  (  IVARO  ( 197,K)#K*1#  8  )/6HS;iALLR#  1# 
DATA ( IVARO ( 198#K)#K« 1,8  )  /6HSSBACR#  8# 
DATA(IVAR0(199#K)#K=1#8)/6HSSCFA  ,  1# 

DATA(  IV  ARQ (  200,K),K=1,8 ) /6HS5DAAW#  1# 
D  A  T  A  ( IVAR0(201#K) ,K*l,0)/6H$SDAStf,  1# 
DATA ( IVARO (202# K) #K-1# 6  )/6HSSDURG#  1# 
DATA(IVARQ(203#K)#K=1#8)/6HSSF3AK#  2# 
DAIA(  IVARQ(2Q4,K),KS1,8  )/6HSSFRSV#  8# 
DATA(  IVARQ(205,K)  »  K  *  1 , 8  ) /6HSSPBDR,  1# 
DATA ( IVARQ(  206#K)  ,  K  3  1  >  8  )  /6HSSP8KR,  1# 
DAT  A(  IVARQ ( 20  7, K ) #K-1#8 ) /6HSSPRD8#  1# 


0# 

865# 

0,  20# 

8671/ 

15SEP81 

269 

0# 

867# 

0,20# 

8681/ 

15SEP81 

270 

0# 

868# 

0,20, 

8742/ 

15SEP81 

271 

0# 

874# 

0,20, 

8802/ 

15SEP81 

272 

0# 

860# 

0,20, 

882  1/ 

15SEP81 

273 

0# 

88  2# 

0  #  2  0 , 

8841  / 

15SEP81 

274 

0# 

937# 

0,20# 

9391/ 

15SEP81 

275 

0# 

920# 

0,21# 

9221/ 

15SEP81 

276 

0# 

910# 

0#  20# 

9202/ 

15SEP81 

277 

0# 

906# 

0 #  20 # 

9081/ 

15SEP81 

278 

0# 

928# 

0,20# 

9331/ 

15SEP81 

279 

0, 

939, 

0,20, 

9411/ 

15SEP81 

280 

0# 

935# 

0,20, 

9371/ 

15SEP81 

281 

0# 

924# 

0#  20# 

9261/ 

15SEP91 

282 

0# 

933# 

0,20# 

9351/ 

15SEP81 

283 

0, 

922# 

0,20, 

9241  / 

15SEP81 

284 

0# 

908# 

0,20, 

9101/ 

15SEP81 

285 

0# 

900# 

0#  20# 

9042/ 

15SEP81 

286 

0# 

896# 

0,20# 

9002/ 

15SEP81 

287 

0# 

904, 

0,21, 

9061/ 

15SEP81 

288 

0# 

886, 

0,20, 

8962/ 

15SEP81 

289 

0# 

926# 

0#  2 0# 

9281/ 

15SEP81 

290 

6  # 

485# 

0,20, 

7853/ 

15SEP81 

291 

0# 

785, 

0,20, 

7901/ 

15SEP81 

292 

0# 

941# 

0,20, 

9511/ 

15SEP81 

293 

0# 

951# 

0,20# 

9611/ 

15SEP81 

294 

0# 

977# 

0,20# 

9801/ 

15SEP81 

295 

0# 

961, 

0,20, 

9711/ 

15SEP81 

296 

0# 

971# 

0,20# 

9771/ 

15SEP91 

297 

0  9 

1030# 

0,21# 

10351/ 

15SEP81 

298 

0# 

980# 

0,21# 

10302/ 

15SEP81 

299 

0# 

1035# 

0,20# 

10361/ 

15SEP81 

300 

0# 

1036# 

0,20, 

10371/ 

155EP81 

301 

0# 

1037# 

0,20# 

10421/ 

15SEP81 

302 

0# 

1042, 

0,20# 

10431/ 

155EP81 

303 

0# 

1043# 

0,20# 

10481/ 

15SEP01 

304 

0# 

1048# 

0,20, 

10491/ 

15SEP81 

305 

0# 

1049# 

0,20# 

10501/ 

15SFP01 

306 

0# 

1050# 

0,20# 

10511/ 

15SEP81 

307 

0# 

1051, 

0,20, 

10521/ 

15SEP81 

309 

0# 

1052# 

0,20# 

10531/ 

15SEP81 

309 

0# 

1053# 

0,20# 

10541/ 

155EP81 

310 

0, 

1054, 

0,20# 

10551/ 

15SEP81 

311 

0, 

1055# 

0  #  2  0# 

10561/ 

15SEP81 

312 

0# 

1056# 

0,20# 

10571/ 

15SEP91 

313 

0, 

1068# 

0,21# 

10691/ 

155EP81 

314 

0# 

1057# 

0,20# 

10581/ 

15SEP81 

315 

0# 

1069# 

0,20, 

10771/ 

15SEP81 

316 

0# 

1077# 

0,20, 

10781/ 

15SEP81 

317 

0# 

1058# 

0,20# 

10591/ 

15SEP81 

318 

0# 

1059, 

0,20, 

10601/ 

15SEP81 

319 

0# 

1060, 

0,20# 

10611/ 

15SEP81 

320 

0# 

1122, 

0,20, 

11382/ 

15SEP81 

321 

0# 

1078# 

0,20# 

11182/ 

15SEP81 

322 

0# 

1118# 

0,20, 

11191/ 

1  5  $  F  P  8  1 

323 

0, 

1119, 

0,20, 

11201/ 

15SEP81 

324 

0# 

1120, 

0,20# 

11211/ 

15SEP81 

325 

0 

0 

2 

3 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

0 

0 

0 

2 

2 

0 

5 

0 

5 

0 

0 

0 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

5 

0 

0 

0 


E-105 


PROGRAM  INP 


DATA ( IVARQ(208,K ) 

K *  1 , 8  )  /6HSSPRK  8 , 

1, 

0, 

0, 

1121, 

0,  20, 

11221/ 

15SEP81 

326 

DAT  A (  IVARO(209,K) 

K  3 1 , 8  )  /6HSSPRKC, 

1, 

0, 

0, 

1138, 

0,20, 

11391/ 

15SEP81 

327 

D  AT  A (  IVARQt  210, K) 

K«I, 8  ) /6HSTARQ  , 

5, 

0, 

0, 

1061, 

0,20, 

10661/ 

15SEP81 

328 

DATA(  IVARQ(211,K) 

K  *  1, 8  )  /6HSTS Al V , 

1> 

0, 

0, 

1066, 

0,20, 

10671/ 

15SEP81 

329 

DATA(  IVARQt 212, K) 

K  *  1 , 8 ) /6HSUBS0R , 

1, 

0, 

0, 

1067, 

0,20, 

10681/ 

15SEP81 

330 

D A  T  A (  IVARQ(213,K) 

K  3  1 , 8  )/6HTAB10T , 

20, 

4  , 

0, 

1139, 

0,20, 

12192/ 

15SEP01 

331 

DATA(  IVARQ(214,K) 

K *  1 , 8  )  /6HTAB12  , 

20, 

0, 

0, 

1219, 

0,20, 

12391/ 

155EP81 

332 

D A T A (  IVARQ(215,K) 

K«l, 8  > /6HTAB13T, 

20, 

4  , 

0, 

1239, 

0,  20, 

13192/ 

15SEP81 

333 

OATA {  I V  A  R  0 { 2  1 6  ,  K  ) 

K-1,8  ) /6HTCAP  , 

1, 

0, 

0, 

1319, 

0,20, 

13201/ 

15SEP81 

334 

D A  T  A {  IVARQ(217,K) 

K  *  1 , 8  )/6HTHSCAQ, 

5, 

0, 

0, 

1320, 

0,20, 

13251/ 

15SEP81 

335 

DATAt  IVARQt 210, K) 

K  3 1 , 8 ) /6HTHSCTQ, 

5, 

0, 

0, 

1325, 

0,20, 

13301/ 

155EP81 

336 

DATA(IVARG(219,K) 

K3 1, 8 ) / 6HTPAS  , 

1, 

0, 

0, 

1330, 

0,20, 

13311/ 

15SEP81 

337 

/  DATA(IVARQ(220,K) 

K  3 1 , 8 ) /6H  T P  S  , 

1, 

0, 

0, 

1331, 

0,20, 

13321/ 

15SEP81 

338 

0  A  T  A ( IVARQ (221, K) 

K  3 1 , 8 ) / 6H  T 1  , 

1, 

0, 

0, 

1332, 

0,20, 

13331/ 

15SEP81 

339 

D  AT  A (  IVARQ(222,K) 

K  *  1 , 8  )  /6HT2  , 

1, 

0, 

0, 

1333, 

0,20, 

13341/ 

15SEP81 

340 

DATA( IVARQt 223, K) 

K  3 1 , 8 )/6HT3  , 

1, 

0, 

0, 

1334, 

0,20, 

13351/ 

15SEP81 

341 

DATA(IVARQ(224,K) 

K  3 1 , 8  ) /6H  T4  , 

1, 

0, 

0, 

1335, 

0,20, 

13361/ 

15SEP81 

342 

DATAt IVARQ ( 225, K ) 

K= 1 , 8  ) /6HUBAEWL, 

1, 

0, 

0, 

1337, 

0,20, 

13381/ 

15SEP81 

343 

DATA(IVARQ(226,K) 

K  =  l, 8  ) /6HUBAEW  , 

1, 

0, 

0, 

1336, 

0,20, 

13371/ 

15SEP81 

344 

D A  T  A ( IVARQ(227,K) 

K*l, 8 ) /6HUBASWL , 

1, 

0, 

0, 

1339, 

0,20, 

13401/ 

15SEP81 

345 

DATA ( IVARQ ( 228 , K ) 

K*l,  0 ) /6HUBASW  , 

1, 

0, 

0, 

1338, 

0,20, 

13391/ 

15SEP81 

346 

D A  T  A (  IVARQ(229,K) 

K*1 , 8  )  /6H VBT  , 

3, 

0, 

0, 

1340, 

0,20, 

13431/ 

15SEP81 

347 

D  A  T  A { IVARQ(  230, K ) 

K*l,8  ) /6HVCAP  , 

1, 

0, 

0, 

1343, 

0,  20, 

13441/ 

15SEP81 

348 

DATA( IVARQ (231, K) 

K«1,8)/6HVI  , 

1, 

0, 

0, 

1344, 

0,20, 

13451/ 

15SEP81 

349 

DATA(IVARQ(232,K) 

K  *  I , 8 J/6HWFMAAW, 

X, 

0, 

0, 

1345, 

0,20, 

13461/ 

15SEP81 

350 

D  A  T  A {  IVARQ(233,K) 

K  *  1 , 8 ) / 6HWFMASW, 

1, 

0, 

0, 

1346, 

0,20, 

13471/ 

15SEP81 

351 

DATA( I V  AR  Q (  2  3  4, K  ) 

K  =  1 , 8  )  /6HWFMPL  T , 

1, 

0, 

0, 

1347, 

0,20, 

13481/ 

15SEP81 

352 

D ATA (  IVARQ(235,K) 

K  3  1 , 8  )  /6HWFMURG, 

1, 

0, 

0, 

1348, 

0,20, 

13491/ 

15SEP81 

353 

DATA(IVARQ(236,K) 

K*l,8  )/6HWFPPAS, 

2, 

5, 

0, 

1360, 

0,  20, 

13702/ 

15SEP81 

354 

D  A  T  A { I V  A  R  Q (  237, K) 

K*l, 8 ) /6HWFTAAW, 

1, 

0, 

0, 

1349, 

0,20, 

13501/ 

15SEP81 

355 

D A  T  A ( IVARQ(238,K) 

K» 1, 8  ) /6HWFTA5W, 

1, 

0, 

0, 

1350, 

0,20, 

13511/ 

15SEP81 

356 

DATA ( IVARQ( 2  39 , K  ) 

K  *1, 8  )  /6HWFTFL  , 

5, 

0, 

0, 

1370, 

0,20, 

13751/ 

15SEP81 

357 

D  A  T  A ( IVARQ ( 240, K ) 

K* 1 , 8 ) /6HWFTPLT , 

1, 

0, 

0, 

1351, 

0,20, 

13521/ 

15SEP81 

358 

0 AT  A ( IVARQ ( 24 1 , K ) 

K  =  1, 8 ) /6HWFTURG, 

1, 

0, 

0, 

1352, 

0,20, 

13531/ 

15SEP81 

359 

0ATA(IVARQ(242,K> 

K  3 1 , 8 ) /6HWRLNDQ, 

5, 

0, 

0, 

1353, 

0,20, 

13581/ 

15SEP81 

360 

DATA(IVARQ(243,K) 

K  *  1 , 8  )/6HWTFCB0, 

1, 

0, 

0, 

1358, 

0,20, 

13591/ 

15SEP81 

361 

DATA( IVARG(244,K) 

K31, 8 ) /6HWVSIZ  , 

1, 

0, 

0, 

1359, 

0,20, 

13601/ 

15SEP01 

362 

DATAt  IVARQ ( 245, K  ) 

K* 1 , 8 ) /6HXAEWLQ, 

5, 

0, 

0, 

1376, 

0,21, 

13811/ 

15SEP81 

363 

DATA ( IVARQ(246,K) 

K  *1, 8 ) /6HXAEW  , 

1, 

0, 

0, 

1375, 

0,21, 

13761/ 

15SEP81 

364 

DATA ( IVARQt247,K) 

K  3 1 , 8  J/6HXASWLQ, 

5, 

0, 

0, 

1382, 

0,21, 

13871/ 

15SEP81 

365 

DATAt  IVARQ(248,K) 

K  2 1 , 8 ) / 6H  X A  S W  , 

1, 

0, 

0, 

1381, 

0,21, 

13821/ 

155EP01 

366 

D A  T  A (  IVARQ(249,K) 

K  =  X , 8 ) /6HXATTCK, 

1, 

0, 

0, 

138  7, 

0,21, 

13881/ 

15SEP81 

367 

DATA ( IVARQ ( 2  50, K  ) 

K  3 1 , 8 ) / 6HXE  AAW  , 

1, 

0, 

0, 

1388, 

0,21, 

13891/ 

15SEP81 

368 

DATA ( I VARQ ( 251, K) 

K«l, 8  )  /6HXEASWA, 

1, 

0, 

0, 

1309, 

0,21, 

13901/ 

15SEP81 

369 

D A  T  A ( IVARQ(  252,K) 

K  =  l,8  )  /6HXEASWM, 

1, 

0, 

0, 

1390, 

0,21, 

13911/ 

15SEP81 

370 

D  A  T  A ( IVARQ(  253,K) 

K*l, 8  )  /  6HXFGHTR, 

1, 

0, 

0, 

1391, 

0,  21, 

13921/ 

15SEP81 

371 

DATA(IVARQ(254,K) 

K  3 1, 8  )  /  6HX I  A  , 

5, 

0, 

Of 

1394, 

0,20, 

13991/ 

15SEP81 

372 

DATA( IVARQ( 255, K) 

K«1,8)/6HXIE  , 

5, 

0, 

0, 

1399, 

0,  20, 

14041/ 

15SEP81 

373 

0  A  T  A (  IVARQ(  256,K) 

K2 1 , 8 )  /6HXNRAB  , 

1, 

0, 

0, 

1404, 

0,20, 

14051/ 

15SEP81 

374 

DATAt  IVARQ {  257, K  ) 

K*l, 8 ) /6HXPLAT  , 

1, 

0, 

0, 

1392, 

0,  21, 

13931/ 

15SEP01 

375 

DAIA{IVARQ(258,K  ) 

K  *  1, 8 ) / 6HXURGS  , 

1, 

0, 

0, 

1393, 

0,21, 

13941/ 

15SEP81 

376 

OATA (IVARQ(259,K) 

K  *  1 , 8  )  /6HZLAMPF, 

1, 

0, 

0, 

1405, 

0,20, 

14061/ 

15SEP81 

377 

D A T A (  IVARQ (260, K  ) 

K2 1 , 8 )  /6HZMPATI  , 

3, 

0, 

0, 

1408, 

0,20, 

14111/ 

15SEP81 

370 

DATAt I VARQ ( 261, K ) 

K  2 1 , 8 ) /6HZMPCAP, 

1, 

0, 

0, 

1406, 

0,  20, 

14071/ 

15SEP81 

379 

OAT  A ( IVARQ (  262, K ) 

K  3 1 , 8 ) /6HZMPDL I , 

1, 

0, 

0, 

1407, 

0,  20, 

14081/ 

15SEP81 

380 

DATA( IVARQ(263,K) 

K  3 1 , 8  )  /6HZMPE5C, 

1, 

0, 

0, 

1411, 

0,20, 

14121/ 

15SEP81 

381 

DATAt I V  A R  Q  (  2 64  ,  K  ) 

, K  =  1 , 8  )  /6HZMPSTG, 

1, 

0, 

0, 

1412, 

0,20, 

14131/ 

15SEP81 

382 
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PROGRAM 


INP 


LIST  OF  ITEMS  REQUIRING  SPECIAL  ATTENTION  IN  CONVERSION 

1)  ENCODE  /  DECODE  STATEMENTS 

2)  WORD  LENGTH  W/R  I VA R Q, I NF O, IF  1 , I F MT , MBLK , N AME 

3)  DAY  CONVERSION  ROUTINE 

A)  G  FORMAT  SPECIFICATION 


INP  READS  IN  TWO  (2)  SETS  OF  DATA  CARDS.  COMMON  IS  DEFINED 
BY  DATA  STATEMENTS.  THE  FIRST  SET  OF  CAROS  IS  THE  DEFINITIONS 
OF  THE  VARIABLES  IN  COMMON.  THE  SECOND  SET  GIVES  THE  VALUES  THE 
VARIABLES  WILL  HAVE.  BOTH  SETS  MUST  HAVE  A  CARD  WITH  ZZZZZZ  IN 
COLUMNS  1-6  AS  A  DELIMITER. 


00221*1, N 
L*IVARQ< I, 51+1 
L 1* I V ARQ ( 1 , 8  )  / 10 
IF ( I .EQ. N) L1=MPD 
K  *0 

IF(IVARQ(I,7)/10.EQ.A)K*M0 
D022 J  =  L  ,  L  1 
22  NEPDUI’K 
MOT  *6 
I  P  T  *  7 
MC  F  *  8 
C 

C  READ  IN  THE  VARIABLE  DESCRIPTIONS,  UP  TO  5  CARDS  A  VARIABLE 

C  WITH  THE  FOLLOWING  FORMAT: 

C  COL  1-6  •  NAME  OF  VARIABLE  (NAME) 

C  COL  7  =  SEQUENCE  NUMBER  OF  CARD  (1-5)  (I) 

C  COL  8-77  *  DEFINITION  OF  VARIABLE  TO  BE  PRINTED  OUT  (INFO) 

C  THESE  DESCRIPTIONS  ARE  ASSUMED  TO  BE  IN  ALPHABETICAL  ORDER.  . 

C 

I SEQ*0 
J  SE  Q  =  1 

1301  READ  1310, NAME, I, (INF0(J),J*1,7) 

1310  F0RMAT(A6,I1,7A10) 

C 

C  MPNAME  IS  INITIALLY  BLANK,  BUT  WILL  LATER  BE  CHANGED, MO  IS  THE 

C  CONSTANT  BLANK.  SO  FOR  THE  FIRST  TIME  THROUGH  NAME  WILL  NOT 

c  EQUAL  A  BLANK  AND  MPNAME  WILL  EQUAL  A  BLANK  SO  CONTROL  GOES  TO 

C  1303  WHERE  IVRB  KILL  BE  SET  TO  ALL  BLANKS,  MPNAME  IS  SET  TO 

C  NAME,  AND  SINCE  NAME  WILL  NOT  BE  EQUAL  TO  MBLK  (ZZZZZZ)  CONTROL 

C  WILL  FALL  THROUGH  TO  THE  SEARCH  ROUTINE. 

C  WHEN  NAME  HAS  BEEN  FOUND  INFO  WILL  BE  STORED  IN  THE 

C  CORRECT  PLACE  IN  IVRB  AND  ANOTHER  CARD  WILL  BE  READ  IN.  IF  THE 

C  DESCRIPTION  OF  THE  VARIABLE  IS  MORE  THAN  ONE  CARD  LONG  NAME 

C  WILL  NOW  EQUAL  MPNAME  AND  CONTROL  WILL  GO  DIRECTLY  TO  1302  TO 

C  STORE  INFO.  WHEN  THE  WHOLE  DESCRIPTION  HAS  BEEN  READ  IN  NAME 

C  WILL  NOT  EQUAL  MPNAME,  AND  MPNAME  WILL  NOT  BE  BLANK  SO  THE 

C  SEQUENCE  COUNTER  IS  INCREMENTED.  THIS  SEQUENCE  NUMBER  IS  THEN 

C  STORED  IN  LISTV  IN  PARALLEL  TO  IVARQ  (NOTE:  IF  NAME  WAS  THE 

C  TENTH  DESCRIPTION  READ  IN  ISEQ*10,  AND  IF  NAME  WAS  FOUND  IN 

C  IVARQ (25,1),  THEN  L I STV ( 25  )  =  10  )  .  IVRB  IS  WRITTEN  ONTO  TAPE  16. 

C  IVRB  IS  BLANKED  OUT, MPNAME  IS  UPDATED  TO  THE  LAST  NAME  READ  IN 

C  AND  THE  CYCLE  IS  REPEATED  UNTIL  THE  DELIMITER  IS  HIT  AND  CON- 

C  TROL  GOES  TO  1309  WHERE  TAPE  16  IS  REWOUND. 


INP 

129 

INP 

130 

INP 

131 

INP 

132 

8  I S  E  P  1 0 

566 

INP 

134 

INP 

135 

INP 

136 

INP 

137 

INP 

138 

INP 

139 

INP 

140 

INP 

141 

INP 

142 

INP 

143 

INP 

144 

INP 

145 

INP 

146 

INP 

147 

INP 

148 

INP 

149 

INP 

150 

INP 

.151 

INP 

152 

INP 

153 

INP 

154 

INP 

155 

INP 

156 

INP 

157 

INP 

158 

INP 

159 

INP 

160 

INP 

161 

INP 

162 

INP 

163 

INP 

164 

INP 

165 

INP 

166 

INP 

167 

INP 

168 

INP 

169 

INP 

170 

INP 

171 

INP 

172 

INP 

173 

INP 

174 

INP 

175 

INP 

176 

INP 

177 

INP 

178 

INP 

179 

INP 

180 

INP 

181 

INP 

182 

INP 

183 

INP 

184 

INP 

ies 
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C 


1303 

1304 


C 

C 

C 


1306 

C 

C 

C 

1305 

1320 


IF (NAME  *EQ.MPNAME)GOT01302 

IF(MPNAME.EQ.M0)G0T01303 

ISE0=ISEQ+1 

LISTV(JV)=ISEQ 

WRITE (16)  IVRB 

001 304K  *1*35 

I  VR  8 ( K ) *  MO 

M  PN  AM  E  =  N  AM  E 

IF (NAME.EO.MBLK)G0TO1309 

ERROR  CHECK  f  IF  NAME  IS  NOT  IN  COMMON  PRINT  AND  IGNORE. 

J  D1 * J  D IM-1 

IF(JSEO.GT.JOl)  GO  TO  1305 
00  1306  JS=JSEQ*JD1 
IF(NAME.NE.IVARQ(JS*1)  )  GO  TO  1306 
JSEQ*JS+1 
JV*  JS 

GO  TO  1302 
CONTINUE 

THERE  IS  AN  INVALID  DESCRIPTION  PRINT  OUT  MESSAGE 
WR I TE ( MOT  *  1320  )  NAME*  I  *  <  INFOU  >  *  J  *1*  7  ) 

F0RMAT(38H  UNRECOGNIZED  ANO  IGNORED  DECPIPTION  *A6*I1,7A10) 

MP  N  AM  E  *  MO 

G0T01301 


STORE  THE  DESCRIPTION  ( I NF  0 ( KK } *  KK  *  1  *  7 )  INTO  THE  PROPER  35 
WORDS  OF  IVRB  KEYING  ON  I*  THE  SEQUENCE  NUMBER  OF  THE  CARD. 

1302  CONTINUE 

I  =  M  I N  0  (  5  »  M  A  X  0  (I*  1  )  )*7 
J  *  1-6 
K  K  *  0 

D01308K-J*  I 
KK  =  KK  +1 

1303  IVRB(K)*INFO(KK) 

G0T01 301 

1309  REWIND  16 

101  READ110*NAME*NC*NBQ*I,J,K*INF0 
110  FORMAT! A6* 12* A1 *  3 13* 2X, 6A10* T19* 2R1 > 

I  F  (  N  A  ME  . EQ.MBLK)GO  TO  999 

ROUTINE  FOR  2-BYTE  REPRESENTATION  OF  DAY  NUMBER. ..DAY  0--99IS 
REPRESENTED  AS  00  —  99*  OR  BO — 99*  OR B B — 99. 

DAY  100  IS  A*  110  IS  B*  ETC  EG*  DAY  137  IS  D7 
CODE  IS  FOR  C  DC  SOFTWARE  AND  MUST  BE  CONVERTED. 

CONVERT  A  BLANK  TO  A  ZERO. 

CONVERT  FROM  A  CHARACTER  TO  A  NUMBER  BY  SUBTRACTING  27(33 
OCTAL).  THIS  ASSUMES  CHARACTER  VALUE  OF  ALPHABETICS  STARTS  AT 
01  OCTAL  AND  NUMBERS  AT  33  OCTAL. 

IF ( I N  FO ( 8 ) .EQ.1R  )  INF0(8)*1R0 

IDAY»INF0(8)-33B 

IF(INF0(7) .EQ.1R  )  INF0<7)*1R0 
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INP 

187 

INP 
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INP 

189 

INP 

190 

INP 

191 

INP 

192 

INP 

193 

INP 

194 

INP 

195 

INP 

196 

INP 

197 

INP 

198 

INP 

1  99 

INP 

200 

INP 

201 

INP 

202 

INP 

203 

INP 

204 

INP 

205 

INP 

206 

INP 

207 

INP 

208 

INP 

209 

INP 

210 

INP 

211 

INP 

212 

INP 

213 

INP 

214 

INP 

215 

INP 

216 

INP 

217 

INP 

218 

INP 

219 

INP 

220 

INP 

221 

INP 

222 

INP 

223 

INP 

224 

INP 

225 

INP 

226 

INP 

227 

INP 

228 

INP 

229 

INP 

•  230 

INP 

231 

INP 

232 

INP 

233 

INP 

234 

INP 

235 

INP 

236 

INP 

237 

INP 

238 

INP 

239 

INP 

240 

INP 

241 

INP 

242 
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I F ( INFO ( 7 ) .LT.lRO.OR. INFO ( 7 ) • GT • 1R9 )  GO 

TO 

301 

INP 

243 

IDAY«IDAY+10*(INFO(7)-33B) 

INP 

244 

GQ  TO  302 

INP 

245 

301 

IDAYsIDAY+( 10*INF0(7) )+90 

INP 

246 

302 

CONTINUE 

INP 

247 

C 

END  OF  DAY  CONVERSION  ROUTINE 

INP 

248 

C 

INP 

249 

C 

USING  THE  BINARY  SEARCH  TECHNIQUE  IT 

TAKES  A  MAXIMUM  OF  8 

INP 

250 

C 

COMPARISONS  TO  FIND  NAME  IN  I  V  ARQ .  (NOTE:  A  LINEAR  SEARCH  WOULD 

INP 

251 

C 

TAKE  AN  AVERAGE  OF  129  COMPARISONS. 

INP 

252 

C 

INP 

253 

JV=JDIM/2. 

INP 

254 

DO  109  JJ=1,8 

INP 

255 

IFUVAR  CUV, 1).GT. NAME)  GOT  0103 

INP 

256 

IF ( IVARQC JV#1 ) .EQ.NAME )G0TQ121 

INP 

257 

102 

JV*J V+MPOW (J J ) 

INP 

258 

GO  TO  109 

INP 

259 

103 

JV= J V-MPOW (J J  ) 

INP 

260 

109 

CONTINUE 

INP 

261 

IF  {  IVARQUV,!  )  .EQ.NAME  )G0  TO  121 

INP 

262 

WRITE (MOT, 120)  NAME,NC, NBQ, I,J,K,INF0(7) 

> INFOC  8 ) >  ( INF0(L)»L'1»6) 

INP 

263 

120 

FORMAT ( 4 OH  INPUT  NAME  NOT  IN  LIST - CARD 

IGNORED 

,A6, I2,A1,3I3, 

INP 

264 

1  2R1, 6A10) 

INP 

265 

GO  TO  101 

INP 

266 

121 

NFN«IVARQ( JV,7)/10 

INP 

267 

NPC  =NVP  FMT ( NFN ) 

INP 

268 

KDISP=IVARQ( JV, 5) 

INP 

269 

MAXI-IVARQ( JV,2) 

INP 

270 

MAXK*IVARQ(JV,4) 

INP 

271 

MAX J=IVARQ(JV,3) 

INP 

272 

ICL=IVARQ( J  V  >  8 ) — 1 0* ( IVARO( J  V, 8 ) / 10 ) 

INP 

273 

IF ( IC  L . E Q . 1 • AND . I . GT . 0 ) GOTO  21 71 

INP 

274 

IF ( ICL.EO. 1 ) GO  TQ1 34 

INP 

275 

IF ( ICL.EG.3)GOTQ2132 

INP 

276 

IF ( I.LE.O. AND. J.LE.O.OR.I.GT.MAXI .OR. J.GT. 

MAX J  )  GOT 02 1 3 5 

INP 

277 

G0T0132 

INP 

278 

2132 

IF  (I.GT .MAXI  .OR. J.GT .MAXJ.OR.K.GT  . M AXK ) GO 

TO  2135 

INP 

279 

IF  (  I  .LE.O.AND.J*K.LE • 0 • OR •  ( J  .  L E  .  0 . AND . K . 

LE 

.0) ) G0TQ21 35 

INP 

280 

GOT0133 

INP 

281 

2135 

WRITE (MOT, 2136)  ICl » NAME, NC , N30» I , J , K, INFO 

INP 

282 

2136 

FORMAT t I9H  IMPROPER  CODING  OF  »I2>AAH  DIMENSIONAL 

VARIABLE  —  CARD 

INP 

283 

1  BELOW  IGNORED  , / , IX , A6, I 2 , A 1, 3 1 3 , 2X , 6 A  10, T20, 2R 1  ) 

INP 

284 

G0T0101 

INP 

285 

132 

IF( I.NE.O) ICL«3 

INP 

286 

I  F ( ICL.EO. 3. AND. J.GT .0)GQT02172 

INP 

287 

GO  TO  134 

INP 

288 

133 

IF(I.EQ.0)ICL*4 

INP 

289 

IF(J.EQ.0)ICL*5 

INP 

290 

IF(K.EO.O) I C  L  =  6 

INP 

291 

I  F  (  ICL.NE. 3)GCT0134 

INP 

292 

C 

SINGLE  VALUE  DIRECT  INPUT  WHEN  ALL  INDEX 

VALUES  ARE 

SPECIFIED. 

INP 

293 

C 

INP  ' 

294 

C 

3-DIMENSION  CASE 

INP 

295 

IST=MAXI*(MAXJ*(K-1)+J-1)+I 

INP 

296 

2174 

IMAX*  1ST 

INP 

297 

INC  *1 

INP 

299 

I C  L  *  7 

INP 

299 
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G0TQ1 49 

C  1-DIMENSION  CASE 

2171  I  ST  *  I 
G0T02174 

C  2-DIMENSION  CASE 

2172  I  S T  =  (  J-D  +  MAXI  +  I 
G0T02 174 

134  I F  < IVAR0(JVf6).E0«0.0R,  N3Q.EQ.M0)G0TQ137 
GO  TO  (201,202*203, 204>204, 204, 204)  ,ICl 

201  MAXl=MAXI/2 
G0T0207 

202  MAXJ-MAXJ/2 

I F ( J.GT.MAXJ ) J*J-MAXJ 
G  OT  02  07 

203  MAXJ-MAXJ/2 
G0T0207 

204  MAXK-MAXK/2 

IF (K. GT • MAXK )K*K-MAXK 
207  IF (NBQ*NE.MRED)G0T0137 
KDI$P=KDISP+IVARQ( JV,6) 

137  INC-1 

KQ-NC*NPC+1 

GO  TO  { 141# 142, 143* 144, 145, 146) ,  ICL 
C  READ  V 

141  I  S  T  *  K  Q 

IMAX«MINO(MAXI %  1ST +N PC-1 ) 

GO  TO  149 

C  R  E  AD ( V ( I, J),  1*1  ) 

142  I$T=(J-1)*MAXI+KQ 
IMAX*MINO( J*MAXI , IST+NPC-1 ) 

GO  TO  149 

C  READ(V(I,J),J  =  1, 

143  IST»I+NPC*NC*MAXI 
I NC  *MAX I 

C  I  MAX* I$T+INC*MIN0(NPC, MAXJ)-INC 

IMAX* IST  +  INC*MIN0(NPC,  MAXJ-NC+6 )-INC 
GO  TO  149 

C  READ(V(I,J,K,I*1,,,, 

144  I$T=MAXI*((K-1)*MAXJ+(J-1))+KQ 
IMAX* IST  +  MINO( NPC-1,MAX I-KO  ) 

GO  TO  149 

C  READ(V< I,J#K),J«1, ,,,,,, ) 

145  INC=MAXI 

1ST*  I  +  INC* <  (K-U  +  MAX  J  +  KQ-1 ) 

IMAX-IST+INC* (MINOtNPC, MAXJ-KO+1 )-l> 

GO  TO  149 

C  READ(V<I,J,K),K=1, 

146  INC-MAXI*MAXJ 

1ST  *KQ*INC+MAXI* ( J-l ) + I  —  INC 
IMAX*IST+INC* <MIN0(NPC,MAXK-*Q+1 ) - 1 ) 

149  IS T=IST+KDI$P 
IMAX=IMAX+KDISP 

I F { IS T.LE . I VARO( J V, 5  )  .OR . IMAX .GT . I VARQ ( J V, 8 ) /10)  GO  TO  2135 
I  F  (  I  D  A  Y • L E • 0 ) GO  TO  (151* 16 1 # 1 6 3 *  1 63 ) * N FN 
C  OUTPUT  RECORD  FOR  LATER  PROCESSING 

IF (  IDAY. EC, MPDAY )G0  TO  171 
MPDAY* IDAY 
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321 
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INP 

326 
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327 

INP 

328 

INP 

329 

INP 

330 

INP 

331 

INP 

332 

INP 

333 

INP 

334 

INP 

335 

INP 

336 

INP 

337 

INP 

333 

INP 

339 

INP 

340 

INP 

341 

INP 

342 

INP 

343 

INP 

344 

INP 

345 

INP 

346 

INP 

347 

INP 

348 

INP 

349 

INP 

350 

INP 

351 

INP 

352 

INP 

353 

INP 

354 

INP 

355 

INP 

356 
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I R  E  C ( 1 ) =  99  99 

INP 

357 

IREC ( 2)=MPDAY 

INP 

358 

WRITE (15 ) IREC 

INP 

359 

IREC  (  1  )  -MPDAY 

INP 

360 

171 

I R  EC ( 2 ) =NFN 

INP 

361 

IREC (3)*IVARQ(JV,7)-10+NFN 

INP 

362 

KK*K 

INP 

363 

LLSIREC(3) 

INP 

364 

IF  (LL.GT.O)  L  L  =  I  OR ( L  L ) 

INP 

365 

IF  (LL.LE.O)  L  L  *  6H 

INP 

366 

I  M* INUM8 (NFN  ) 

INP 

367 

I  F ( ICL.GT.6) IM»7 

INP 

368 

IFMT ( 1) = I F 1 ( 1 , NF  N ) 

INP 

369 

IFMT (2)=IF1(2,NFN) 

INP 

370 

GO  TD  (172, 173, 177, 177), NFN 

INP 

371 

172 

DECQDE(60, 1510, INFO) (IREC (K )  ,  K *  7,  I  M  ) 

INP 

372 

GO  TO  174 

INP 

373 

173 

DECODE (60, 1610* INFO) ( IREC (K),K =7, IM) 

INP 

374 

174 

WRITE  ( 15  )  IREC 

INP 

375 

WRITE (MOT, 2120)  I D AY,  L L , N AME , NC , NBQ, I , J , KK 

INP 

376 

WRITE (MOT, IFMT)  (IREC(K),K»7,IM) 

INP 

377 

2120 

F0RMAT(9H0TIME-T*  >I3»A6,10H  VARIABLE  ,A6»I2,1H  »A1,3I3»20H - VALU  INP 

378 

1ES  ARE  8EL0W  ) 

INP 

379 

GO  TO  101 

INP 

360 

151 

DEC  0DE(60,  1510,  INFO)(NEPO(I  )',  I  »  I  ST,  IMAX,  INC  ) 

INP 

381 

GO  TO  101 

INP 

382 

161 

DECODE(60,1610, INFO) (NEPDt I  )  ,  I « I  ST, I  MAX, INC ) 

INP 

383 

GO  TO  101 

INP 

384 

163 

DEC  ODE ( 60,  1720, INFO) (NEPDt I ), I -I  ST, I  MAX, INC ) 

INP 

385 

G  OT  01 01 

INP 

386 

177 

DECODEt  60,  1720, INFO) < IREC <K ) ,K*7, IM) 

INP 

387 

G0T0174 

INP 

388 

1720 

FORMAT( 6A10) 

INP 

389 

1510 

FOR MAT (6110) 

INP 

390 

1610 

FQRMAT(6F10.0) 

INP 

391 

999 

D0990  JV*1,N 

INP 

392 

WRITE ( MOT ,980)  (  IVARQ(JV,K) , K*l, 4 ) 

INP 

393 

980 

FORMATt 15H0VARIABLE - , A  6 , 1H ( , I 3 , 2 ( 1H, , I 3 ) , 1 H )  ) 

INP 

394 

IF(LISTV(JV) •LE*0)GQT01329 

INP 

395 

R  E A  D ( 16) I VR  8 

INP 

396 

DO  1 32  8K  *  1 , 29 , 7 

INP 

397 

L L  * K+  6 

INP 

398 

D01327L*K,LL 

INP 

399 

IF ( IVRB (L ) .NE  *M0)GOTO1325 

INP 

400 

1327 

CONTINUE 

INP 

401 

G  OT  01 32  8 

INP 

402 

1325 

WRITE (MOT,  1330)  ( I VR B ( L  )  , L* K, LL ) 

INP 

403 

1330 

F0RMAT(35X,7A10) 

INP 

404 

1323 

CONTINUE 

INP 

405 

1329 

CONTINUE 

INP 

406 

NFN*IVARO(JV, 7)/10 

INP 

407 

KDISP=IVAR0(JV,5) 

INP 

408 

ICL*IVARQ( JV, 8 )-10*( IVARQ(JV,B)/10) 

INP 

409 

MAXI*IVARQ(JV,2) 

INP 

410 

MAXJ=IVAR0(JV,3) 

INP 

411 

MAXK  =  IVARC ( JV, 4) 

INP 

412 

IFMT ( 1 ) *IF1(1,NFN) 

INP 

413 

E-lll 


PROGRAM  INP 


IFMT(2)=IF1(Z,NFN> 

60T0( 971 ,  9  72,  973 ) » ICl 

971  IST*KDISP+1 
IMAX*KDISP+MAXI 

WRITE (MOT, IFMT)  (NEPDCI), 1= 1ST, I  MAX J 
G0T0990 

972  INOMAXI 

ASSIGN  990  TO  MGO 
9732  009721  K=1,MAXI 
IST-KDISP+K 

JMAX»KDISP+MAXI*MAXJ-MAXI+K 
9721  WR I TE ( MOT, I FM  T )  ( NE PD ( I  )  , I • I  ST, J M A  X,  INC ) 
GO  TO  MGO,  (990,9731) 

973  ASSIGN  9731  TO  MGO 
INC  *  MAXI 

KK  » 1 

WRITE (MOT, 9730)  KK 

9730  FORMAT ( AH  K  *  ,12) 

GO  TO  9732 

9731  KK*KK+1 

IF ( KK.GT .MAXK )G0  TO  990 
KDISP*KDISP+MAXI*MAXJ 
WR I TE (MOT , 9730  )  KK 
GO  TO  9732 
990  CONTINUE 

END  FILE  15 
REWIND  15 
IGO-O 

IF( IDAY.GT.O)  READ  (15)  IGO,IGO 
END 
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